Imports DevExpress.XtraEditors.Controls

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
End Class