Sub MQTT_Connect_POS
Dim m As MqttConnectOptions
m.Initialize("","")
MQTT.Initialize("MQTT","tcp://::1:9096", "AutomataPosSrv")
MQTT.Connect
Wait For MQTT_Connected (Success As Boolean)
If Success = True Then
Log("Client connected!!!")
MainForm.Title = "Connected"
'MQTT.Subscribe("Some Thrift Class", 0)
Else
Log(LastException )
MainForm.Title = LastException
End If
End Sub