Dim WithEvents lb As New ListBox With {.Parent = Me}
 
Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
   lb.Height = lb.ItemHeight + 5
 
   Dim länder As String() = New String() _
   {" Australien", "Afghanistan", "Belgien", "Bhutan", "Chile", "China", _
   "Deutschland", "Dänemark", "England"}
 
   Dim blst As New System.ComponentModel.BindingList(Of String)(länder)
   lb.DataSource = blst
End Sub