how to make a 'RESOLVE IP' program for any server..

Hello friends,
here i am sharing the code for resolving the current and fastest IP of the targetted server...
here for example i considered the server IP and PORT of mig33.com, u can use any server IP and PORT, code is as follows
=============================================================================================
CONTROLS REQUIRED :-
text1 [textbox]
winsock1 [winsock]
=============================================================================================

CODE :-

Private Sub Form_Load()
On Error Resume Next
Winsock1.RemoteHost = "gateway.mig33.com"
Winsock1.RemotePort = "9119"
Winsock1.Connect
Text1.text = "Resolving"
End Sub

Private Sub Winsock1_Connect()
On Error Resume Next
Text1.text = Winsock1.RemoteHostIP
Winsock1.Close
End Sub

Private Sub Winsock1_Close()
On Error Resume Next
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
On Error Resume Next
Winsock1.Close
End Sub
============================================================================================
be regular on forum i will share more amazing tricks and code;)
ENJOY...
EVILSOFTS RULZZZ...