Sub Serial1_Connected (Success As Boolean)
If Success Then
ToastMessageShow("Connected successfully", False)
Astreams.InitializePrefix(Serial1.InputStream,False,Serial1.OutputStream,"Astreams")
connected = True
Else
connected = False
ToastMessageShow("Error connecting."&LastException.Message,True )
End If
End Sub