(...)
'########### Services ############
            If data.Equals("service") Then
                Console.WriteLine("Antworte auf Serviceanfrage")
                Dim services As String
                For k As Int32 = 1 To myInfo.colServices.Count
                    services = services & myInfo.colServices.Item(k) & "/"
                Next
                'letzten / entfernen
                services = Mid(services, 1, services.Length - 1)
                Me.send(data & "|" & services)
            End If
        End If
 
 
 
        If splitData.Length = 2 Then
            '########## CHAT ################
            If splitData(0).Equals("Chat") Then
                Console.WriteLine("Chatnachricht vom Server: " & splitData(1))
                If frmChat Is Nothing Then
                    frmChat = New frmChat(Me)
                    sd = New ShowDialogHandler(AddressOf frmChat.ShowDialog)
                    iasr = sd.BeginInvoke(Nothing, Nothing)
                End If
                frmChat.lstMessages.Invoke(frmChat.writeDelegate, splitData( _
                 1))
            End If
        End If