Sub Socket1_Connected (Successful As Boolean)
Label1.Text = "los"
If Successful = False Then
ToastMessageShow(LastException.Message,True)
Return
End If
astream.Initialize(Socket1.InputStream, Socket1.OutputStream, "AStreams")
ToastMessageShow("Bitte warten", False)
Label1.text = sb.tostring()
End Sub