Cara bikin IP Finder dengan VB

bikin satu project di vb
trus tambahkan control Winsock
trus

tambahkan textbox
tambahkan 1 tombol masukkan coding ini
Code:
Private Sub Command1_Click()
Winsock1.RemoteHost = "gateway.mig33.com"
Winsock1.RemotePort = "9119"
Winsock1.Connect
Text1.Text = "Resolving"
End Sub


tambahkan winsock dan masukkan coding ini
Code:
Private Sub Winsock1_Connect()
Command1.Enabled = True
Text1.Text = Winsock1.RemoteHostIP
Winsock1.Close
End Sub

selamat mencoba semoga sukses