Dim Client As Socket
Client.Initialize("Client")
Client.Connect("my public IP address",40000,20000)
Sub Client_Connected (Successful As Boolean)
If Successful Then
If AStream.IsInitialized Then AStream.Close
ToastMessageShow("Connected", True)
AStream.Initialize(Me,"AStream",Client.InputStream,Client.OutputStream)
etc.