Dim mo As MqttConnectOptions
mo.Initialize("aa", "bb")
Dim jo As JavaObject = mo
jo.RunMethod("setSocketFactory", Array(CreateTrustAllSSLSocketFactory))
'Use Mqtt.Connect2(mo)
Sub CreateTrustAllSSLSocketFactory As Object
Dim tm As CustomTrustManager
tm.InitializeAcceptAll
Dim SSLContext As JavaObject
SSLContext = SSLContext.InitializeStatic("javax.net.ssl.SSLContext").RunMethod("getInstance", Array("TLS"))
SSLContext.RunMethod("init", Array(Null, tm, Null))
Dim Factory As JavaObject = SSLContext.RunMethod("getSocketFactory", Null)
Return Factory
End Sub