codice:
Private Sub butt_invia_Click() 'invia i dati
    Dim data As String
    data = txtOut.Text
    vskClient.SendData data & vbCrLf

End Sub

Private Sub puls_conn_Click() 'connette
vskClient.connect
End Sub

Private Sub vskClient_DataArrival(ByVal bytesTotal As Long) 'all'arrivo dei dati visualizza
Dim a As String
vskClient.GetData a
txtReply.Text = a & vbCrLf
End Sub