Public Sub ConnectTo(Host As String, account As String,password As String) <<<--- Main will call this !
currentName = "io-app"
Hostname = Host
HostAcc = account
HostPwd = password
If connected Then client.Close
client.Initialize("client", $"tcp://${Hostname}:${port}"$, "android" & Rnd(1, 10000000))
Dim mo As MqttConnectOptions
mo.Initialize(HostAcc,HostPwd)
'this message will be sent if the client is disconnected unexpectedly.
mo.SetLastWill("all/disconnect", serializator.ConvertObjectToBytes(currentName), 0, False)
client.Connect2(mo)
End Sub