Private Sub ICQ_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Message As String
   ICQ(Index).GetData Message
   txtAusgabe.Text = txtAusgabe.Text & Message
   MsgBox "Vom Client gekommen: " & Message
   Server(Index).SendData Message
End Sub
 
Private Sub Server_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Message As String
   Server(Index).GetData Message
   txtAusgabe.Text = txtAusgabe.Text & Message
   MsgBox "Vom Server gekommen: " & Message
   ICQ(Index).SendData Message
End Sub

[u]Mein System online

MfG ICE-MAN