Sub Socket1_Connected (Successful As Boolean)
If Successful Then 'this always reports successful even though it isn't
Astreams.InitializePrefix(Socket1.InputStream, False, Socket1.OutputStream, "Astreams")
Else
Log("Error: " & LastException)
End If
End Sub