WinSock programmierung

[CrimeTime]

Hallo Leute,
ich habe mir einen kleinen Chat entworfen, doch nun habe ich schwierigkeiten den ConnectionRequest hin zu bekommen, ich habe schon einige Varianten versucht, aber es will absolut nicht Funktionieren hier der letzte versuch

Public Const MaxCon = 20

Private Sub sckClient_ConnectionRequest(ByVal requestID As Long)
    Dim aFreeSocket As Integer
    aFreeSocket = GetFreeSocket
    
 If aFreeSocket = 0 Then
        
        frmpackets.DebugText.text = "Number of maximum clients reached ! A connection had to be refused!"
        sckClient.Close
        sckClient.Accept requestID
        sckClient.Close
        
    Else
        
        bSocketStatus(aFreeSocket) = True
        sckClient(aFreeSocket).Accept requestID
        DoEvents
        frmpackets.DebugText.text = "A new Client with ID " & aFreeSocket & " and IP " & sckClient(aFreeSocket).RemoteHostIP & " connected!"
        SendData aFreeSocket, "WELCOME_KEY " & Chr(13) & "1234"

        
    End If
    
End Sub

Public Function GetFreeSocket() As Integer
Dim i As Integer
    
    For i = 1 To MaxCon
        
        If bSocketStatus(i) = False Then
            GetFreeSocket = i
            Exit Function
        End If
        
    Next i
    
    GetFreeSocket = 0
    
End Function

Gruß CrimeTime