Private Sub wsckServer_ConnectionRequest(Index As Integer, ByVal requestID As _
  Long)
 
List1.AddItem "Connection request [" & requestID & "] by " & IP2Name(wsckServer( _
  Index).RemoteHostIP)
 
If Index = 0 Then
    anzahlVerbindungen = anzahlVerbindungen + 1
    Load wsckServer(anzahlVerbindungen)
    wsckServer(anzahlVerbindungen).LocalPort = Val(txtLocalPort.Text)
    wsckServer(anzahlVerbindungen).Accept requestID
 
    'Hier teilt der Server demjenigen, der sich gerade mit ihm verbunden hat, 
    ' seinen Namen mit. 
    ' Ist also eigentlich unwichtig, wichtig ist nur, DASS er was sendet.
 
    wsckServer(anzahlVerbindungen).SendData ("hostident/" & wsckServer( _
      anzahlVerbindungen).LocalIP &         "/" & myName)
 
 
 
        'Die Variable sendComplete wird im Ereignis Send_Complete auf true 
        ' gesetzt.
        Do While sendComplete = False
            'Bei diesem DoEvents passiert das, was ich im ersten Post 
            ' beschrieben habe:
            ' Das Error-Event wird ausgelöst (Details siehe 1. Post)
            DoEvents
        Loop
 
End If
 
End Sub

If Not wsckClient.State = 6 Then
With wsckClient
    .RemoteHost = txtRemoteIP.Text
    .RemotePort = Val(txtRemotePort.Text)
    .Connect
    LastPortUsed = .RemotePort
    LastIPUsed = txtRemoteIP.Text
End With
End If
tmrTimeOut.enabled = True

Private Sub tmrTimeOut_Timer()
timeCount = timeCount + 1
If timeCount = TimeOut And wsckClient.State <> sckConnected Then
    MsgBox "Kein Server gefunden"
    wsckClient.Close
    timeCount = 0
    tmrTimeOut.enabled = False
End If
End Sub

LG,Robert