Option Explicit
Dim Port As String
Dim SPort As String
Private Sub Form_Load()
   Port = 12344
   SPort = 54321
   ICQ(0).LocalPort = Port
   ICQ(0).Listen
End Sub
 
Private Sub ICQ_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim Winsockan As Integer
   Winsockan = ICQ.Count
   Load ICQ(Winsockan)
   ICQ(Winsockan).LocalPort = Port
   ICQ(Winsockan).Accept requestID
   Winsockan = Server.Count
   Load Server(Winsockan)
   Server(Winsockan).LocalPort = SPort
   Server(Winsockan).Connect "login.ICQ.com", SPort
End Sub
 
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
   ICQ(Index).SendData Message
End Sub
 
Private Sub Server_Connect(Index As Integer)
   MsgBox "Server hat angenommen"
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
   Server(Index).SendData Message
End Sub

[u]Mein System online

MfG ICE-MAN