Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) _
      Handles ListBox1.SelectedIndexChanged
        Dim Users As String = ""
        Dim Status As ArrayList = New ArrayList
        Status(TOnlineStatus.olsOffline) = "Offline"
        Status(TOnlineStatus.olsOnline) = "Online"
        Status(TOnlineStatus.olsAway) = "Abwesend"
        Status(TOnlineStatus.olsNotAvailable) = "Nicht verfügbar"
        Status(TOnlineStatus.olsDoNotDisturb) = "Beschäftigt"
        Status(TOnlineStatus.olsSkypeOut) = "SkypeOut"
        Status(TOnlineStatus.olsSkypeMe) = "Skype mich"
        Status(TOnlineStatus.olsUnknown) = "Unbekannt"
 
        For i As Integer = 0 To ListBox1.Items.Count - 1
            If ListBox1.GetSelected(i) Then
                If Users.Length = vbEmpty Or Users = ", " Then
                    Users = (userlist.Rows(i).Item(1).ToString) & " (" & ( _
                      Status(Skype.User(userlist.Rows(i).Item( _
                      1).ToString).OnlineStatus).ToString) & ")"
                Else
                    Users = Users & ", " & (userlist.Rows(i).Item(1).ToString) _
                      & " (" & Status(Skype.User(userlist.Rows(i).Item( _
                      1).ToString).OnlineStatus).ToString & ")"
                End If
            End If
        Next i
        Label1.Text = Chr(34) & Users & Chr(34)
    End Sub

System.ArgumentOutOfRangeException wurde nicht von Benutzercode behandelt.
  HResult=-2146233086
  Message=Der Index lag außerhalb des Bereichs. Er muss nicht negativ und _
    kleiner als die Auflistung sein.
Parametername: index
  ParamName=index
  Source=mscorlib
  StackTrace:
       bei System.Collections.ArrayList.set_Item(Int32 index, Object value)
       bei SkypeAPItest.Nachrichten.ListBox1_SelectedIndexChanged(Object _
         sender, EventArgs e) in C:\Users\Henry\Documents\Visual Studio _
         2012\Projects\WindowsApplication3\WindowsApplication3\Nachrichten.vb:Z_
         eile 29.
       bei System.Windows.Forms.ListBox.OnSelectedIndexChanged(EventArgs e)
       bei System.Windows.Forms.ListBox.set_SelectedIndex(Int32 value)
       bei System.Windows.Forms.ListControl.DataManager_ItemChanged(Object _
         sender, ItemChangedEventArgs e)
       bei System.Windows.Forms.CurrencyManager.OnItemChanged( _
       ItemChangedEventArgs e)
  InnerException:

        Status(TOnlineStatus.olsOffline) = "Offline"