Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        Dim i As Single
        For i = 0 To 5
            Me.ListBox1.Items.Add("eintrag" & i.ToString)
        Next
 
 
End Sub
 
 
Private Sub btnAuslesen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnAuslesen.Click
        Dim itemID As Single
        For itemID = 0 To ListBox1.Items.Count - 1
            MsgBox(ListBox1.Items.Item(itemID))
        Next
End Sub