Public Sub HookForm(F As Form)
    PrevProc = SetWindowLong(F.hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub UnHookForm(F As Form)
    If PrevProc <> 0 Then
        SetWindowLong F.hwnd, GWL_WNDPROC, PrevProc
        PrevProc = 0
    End If
End Sub
Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If uMsg = WINSOCKMSG Then
        ProcessMessage wParam, lParam
    Else
        WindowProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
    End If
End Function


Public Sub ProcessMessage(ByVal lFromSocket As Long, ByVal lParam As Long)
    Dim X As Long, ReadBuffer(1 To 1024) As Byte, strCommand As String
    Dim sockin As sockaddr
        
    
    Select Case lParam
        Case FD_ACCEPT
        
       Dim tmpSockAddr As sockaddr
       Dim tmpSocket As Long
       
       
       tmpSockAddr = saZero
       tmpSocket = accept(lFromSocket, tmpSockAddr, Len(tmpSockAddr))
       
       Msgbox "incoming!"  <--repeats itself again and again
        
        
End Select
End Sub


Function ConnectSock(ByVal Host, ByVal Port&, retIpPort$, ByVal HWndToMsg&, ByVal Async%) As Long
    Dim SelectOps&, Dummy&
    
    Dim s As Long
    Dim sockin As sockaddr
    sockin = saZero
    
    SockReadBuffer$ = ""
    sockin = saZero
    sockin.sin_family = AF_INET
    sockin.sin_port = htons(777)
    

    sockin.sin_addr = asc_to_long("172.16.16.20"

    s = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP)
    bind s, sockin, sockaddr_size
    listen s, 10
    
    SelectOps = FD_ACCEPT
        
    WSAAsyncSelect s, HWndToMsg, ByVal 1025, ByVal SelectOps
     
     ConnectSock = s
End Function

Function asc_to_long(ByVal asc_ip As String) As Long

asc_to_long = inet_addr(asc_ip)
'MsgBox "connecting to " & getascip(asc_to_long)

End Function