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 ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e _
      As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        MsgBox(Me.ListBox1.Items.Item(Me.ListBox1.SelectedIndex))
    End Sub