Private Sub Form_Load()
Win.LocalPort = 2999
Win.RemotePort = 2999
Win.Listen
End Sub
Private Sub win_ConnectionRequest(ByVal requestID As Long)
If (Win.State <> sckClosed) Then Win.Close
win.listen
Win.Accept requestID
End Sub
Gantonio anche se la riapro mi da errore
Ultima modifica effettuata da black93 il 21/07/2008 alle 13:39 |