Imports DevExpress.XtraBars.Docking
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraGrid

Public Class frmSearch
    Private Sub frmSearch_Load(sender As Object, e As EventArgs) Handles Me.Load

        Dim oList As New List(Of String) From {"Marvin", "Marlon", "Annette", "Jan", "Jonathan", "Vladimir", "Armin"}

        For Each oMember In oList
            Dim oItem As New ImageListBoxItem(oMember, oMember)

            ImageListBoxControl1.Items.Add(oItem)
        Next
    End Sub

    Public Overrides Function GetInitialPanels() As List(Of PanelInfo)
        Dim oList = MyBase.GetInitialPanels()

        oList.Add(New PanelInfo() With {
            .Caption = "Search",
            .InnerControl = New DocumentPanel(),
            .Position = DockingStyle.Bottom
        })

        Return oList
    End Function
End Class