Function getNext(ActualItem As Object) As Object
    Dim actualIndex As Integer = ListBox1.Items.IndexOf(ActualItem)
    If actualIndex < ListBox1.Items.Count Then
      Return ListBox1.Items(actualIndex + 1)
    End If
    Return Nothing
  End Function
 
Sub StartPlayList()
  Dim merke As Object = ListBox1.Items(0)
  While Not merke Is Nothing
    SpieleSongAb(merke)
    merke = getNext(merke)
  End While
End Sub

___________________________________________________________________________________________
Jeder, der behauptet das gesamte .NET-Framework zu kennen ist entweder verrückt oder Sheldon Cooper