Meins

Private Sub wsckServerConnection_DataArrival(ByVal bytesTotal As Long)
    Dim incoming, incoming_clear As String
    Dim i As Integer
    Dim temp_a() As String
    DoEvents
    
    wsckServerConnection.GetData incoming, vbString, bytesTotal
    temp_a = Split(incoming, vbCrLf)
    For i = LBound(temp_a) To UBound(temp_a)
        incoming_clear = remove_crlf(Trim(temp_a(i)))
        If incoming_clear <> "" Then
            lblDebug.Caption = incoming_clear & vbCrLf & lblDebug.Caption
            If loginstate <> 3 Then HandleLogin incoming_clear: Exit Sub
            If Trim(Left$(incoming, 8)) = "PC STATE" Then HandleStateChange incoming_clear: Exit Sub
            If Trim(Left$(incoming, 10)) = "PC CONTACT" And Trim(Left$(incoming, 15)) <> "PC CONTACT_LAST" Then HandleNewContact CStr(incoming): Exit Sub
            If Trim(Left$(incoming, 8)) = "PC START" Then
                Load frmChat: frmChat.Show
                frmChat.wsckRelayConnection.RemotePort = CInt(Trim(Right(incoming, Len(incoming) - 8)))
                frmChat.wsckRelayConnection.RemoteHost = server
                frmChat.wsckRelayConnection.Connect
                resizeBuffers frmChat.wsckRelayConnection.SocketHandle
                frmChat.lblUserName.Caption = CInt(Trim(Right(incoming, Len(incoming) - 8)))
                Me.Hide: Exit Sub
            End If
            If Trim(Left$(incoming, 6)) = "PC ERR" Then MsgBox "Server meldete Fehler: " & Trim(Right(incoming, Len(incoming) - 6)), vbCritical & vbSystemModal & vbOKOnly, "PaintChat"
        End If
    Next i
End Sub