Can Anyone Tell Me Whats Wrong With My Program ?

Public Class Form1

    Dim data As String



    Private Sub zucari_ConnectionRequest(sender As Object, e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles zucari.ConnectionRequest
        zucari.Close()
        zucari.Accept(e.requestID)

    End Sub

    Private Sub zucari_DataArrival(sender As Object, e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles zucari.DataArrival
        Dim data As String = ""
        zucari.GetData(data)
        TextBox2.Text = data
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        zucari.LocalPort = 4412
        zucari.Listen()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        zucari2.Close()
        zucari2.Connect(TextBox1.Text, 4412)
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        Data = TextBox3.Text
        zucari.SendData(Data)
    End Sub
End Class