Dim Users As New ArrayList
 
    Private Sub NewUser(ByVal Nick As String)
        Users.Add(New cls_User(Nick))
    End Sub

    Private Sub NewMessage(ByVal Nick As String, ByVal Message As String)
        Dim user As cls_User
        'Ganze Arrylist durchlaufen
        For Each user In Users 
            If user.Nick = Nick Then
            'Stimmt der gesuchte Nickt mit dem Nick der aktueller Klasse überein
            'so wurde die richtige Klasse des Chatters gefunden
                If user.chatForm Is Nothing Then
                'Ist in der Klasse noch kein Chatfenster gespeicher so wird ein 
                ' neues geladen
                'und gleich in die Klasse gespeichert
                    user.chatForm = New chat_form
                'und angezeigt
                    user.chatForm.show()
                End If
                'Neue Nachricht in das Flüsterfenster einfügen
                user.chatForm.rtbpn.AppendText(" " & Nick & ": " & Message & _
                  vbCrLf)
            End If
        Next
    End Sub