Problem in run a socket program (udp) to Windows xp

See more:

VB

hi
The program runs on Windows 7, no problem. But the program does not run on Windows XP

Problem is the code:

AxWinsockb.Bind(123, "127.0.0.1")

Source program (server &client) + AxWinsoc :
http://www.mediafire.com/?isgbqb15tzrtofb[^]


client code :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AxWinsockb.RemoteHost = "ASUS-PC"

        AxWinsockb.RemotePort = 321

        AxWinsockb.Bind(123, "127.0.0.1")

    End Sub

    Private Sub form1_close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AxWinsockb.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

        Se110.Text = Re110.Text

        AxWinsockb.SendData(Se110.Text)

    End Sub

    Private Sub AxWinsockb_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrival  Event) Handles AxWinsockb.DataArrival

        AxWinsockb.GetData(Re110.Text)

    End Sub

End Class

server code :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AxWinsocka.RemoteHost = "ASUS-PC"

        AxWinsocka.RemotePort = "123"

        AxWinsocka.Bind(321, "127.0.0.1")

    End Sub

    Private Sub form1_close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AxWinsocka.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        AxWinsocka.SendData(Sepc.Text)

    End Sub

    Private Sub AxWinsocka_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrival  Event) Handles AxWinsocka.DataArrival

        AxWinsocka.GetData(Repc.Text)

    End Sub
End Class