Sub Serial1_Connected (Success As Boolean)
'ProgressDialogHide
'ToastMessageShow("connected: " & Success, True)
If Success = False Then
'Log(LastException.Message)
ToastMessageShow("Error connecting: " & LastException.Message, True)
Main.blue_connected = False
Else
Main.blue_connected = True
serial1.Listen
Asyx.InitializePrefix(serial1.InputStream, False, serial1.OutputStream, "Asyx")
End If
End Sub