Private Sub cmd_Open_Click()
     Sock.LocalPort = txt_Port.Text
     Sock.Listen
End Sub
 
Private Sub Sock_ConnectionRequest(ByVal requestID As Long)
     Sock.Close
     Sock.Accept requestID
     lbl_Status.Caption = "Status: Connected"
End Sub

Private Sub cmd_Connect_Click()
 
    Sock.RemoteHost = txt_ServerIp.Text
    Sock.RemotePort = txt_ServerPort.Text
    Sock.Connect
 
End Sub