Проблема с сокетом

[passerby]

Не подскажете, почему конструкция:

Try
Dim ip As Net.IPAddress = Net.IPAddress.Parse("xxx.xxx.xxx.xxx")
Dim port As string = "xxxx"
Dim client As New Net.Sockets.Socket(ip.AddressFamily, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
Dim remoteEP As New Net.IPEndPoint(ip, port)
client.BeginConnect(remoteEP, AddressOf ConnectCallback, client)
client.Close()
MsgBox("Ok")

Catch e As Exception
MsgBox(e.ToString())
End Try

отлично работает под winXP, но не работает под windows mobile 5?

Не работает так - в catch не вываливается, msgbox говорит Ок, но судя по логу сервера - коннекта на заданный порт не было.

Задача - просто постучаться на сервер на определенный порт и отвалиться, не слушая ответ.
Пишу под visual studio 2005.