Sub Process_Globals
Private mqtt As MqttClient
Private ServerAndPort As String = "ssl://<your MQTT broker IP address>:<port number>"
...
End Sub
Public Sub Connect(ThisUser As TUser)
CurrentUser = ThisUser 'this is a type used in my program, you can use a simple integer
If mqtt.Connected Then mqtt.Close
mqtt.Initialize("mqtt", ServerAndPort, CurrentUser.Name)
Dim mo As MqttConnectOptions
mo.Initialize(ThisUser.Name,ThisUser.Pwd)
'this message will be sent if the client is disconnected unexpectedly.
mo.SetLastWill("servizio/disconnect", CurrentUser.Name.GetBytes("UTF8"), 0, False)
mqtt.Connect2(mo)
End Sub