Option Explicit

Private Sub cmdConnect_Click()
    sockMain.RemoteHost = txtHost.Text
    sockMain.RemotePort = txtPort.Text
    sockMain.Connect
End Sub

Private Sub cmdSend_Click()
    sockMain.SendData txtSend.Text
End Sub

Private Sub Form_Load()
    Form2.Show

    txtStatus.Text = ""
End Sub

Private Sub sockMain_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String

    sockMain.GetData strData, vbString
    txtStatus.Text = txtStatus.Text & _
        strData & vbCrLf
End Sub
-----------
Option Explicit

Private Sub Form_Load()
    txtStatus.Text = ""
End Sub

Private Sub cmdListen_Click()
    sockMain.LocalPort = txtPort.Text
    sockMain.Listen
End Sub

Private Sub sockMain_ConnectionRequest(ByVal requestID As Long)
    If sockMain.State <> sckClosed Then
        sockMain.Close
    End If

    sockMain.Accept requestID

    txtStatus.Text = txtStatus.Text & _
        "Accepted connection from: " & _
        sockMain.RemoteHostIP & vbCrLf
End Sub

Private Sub cmdSend_Click()
    sockMain.SendData txtSend.Text
End Sub

Private Sub sockMain_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String

    sockMain.GetData strData, vbString
    txtStatus.Text = txtStatus.Text & _
        strData & vbCrLf
End Sub