Private Sub cmd_connect_Click()
 
    ws.Connect txtIP, 15883
 
End Sub
 
Private Sub Form_Load()
 
    Label1.Caption = "Not connected!"
    Label1.ForeColor = &HFF&
    ws.LocalPort = "15883"
    ws.Listen
 
End Sub
 
Private Sub ws_Close()
 
    Label1.Caption = "Not connected!"
    Label1.ForeColor = &HFF&
 
End Sub
 
Private Sub ws_Connect()
 
    Label1.Caption = "Connection established!"
    Label1.ForeColor = &HC000&
 
End Sub