socket1.Initialize("socket1")
socket1.Connect(ipPrinter, portPrinter, 9000)
'
'
'
Sub socket1_Connected (Successful As Boolean)
If Successful Then
'
'
Dim OutputStream1 As OutputStream
OutputStream1 = socket1.OutputStream
'
Dim dataToSend as string = "Hello World!"
OutputStream1.WriteBytes(dataToSend.GetBytes("UTF8"), 0, dataToSend.Length)
'
Sleep (500)
OutputStream1.Close
socket1.Close
End If