Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_connetti.Click
        sock.Connect("127.0.0.1", 9999)
    End Sub

    Private Sub sock_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles sock.DataArrival
        Dim dati As String
        sock.GetData(dati)
        MsgBox(dati)
    End Sub

    Private Sub sock_Error(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles sock.Error
        MsgBox("Errore")
        sock.Close()
    End Sub

End Class