Site IP Look UP

Code:
Private Sub cmdIP_Click()
Winsock1.Connect Text1.Text, "80"
End Sub

Private Sub cmdquit_Click()
Unload Me
End Sub


Private Sub Label4_Click()
Shell "explorer.exe http://www.sharp-soft.net"
End Sub

Private Sub Winsock1_Connect()
Text2.Text = Winsock1.RemoteHostIP
Winsock1.Close
End Sub