Mengecek IP Adress Memakai Visual Basic 6.0

Haduh .. dah lama nih gg post ttg VB , terakhir sih waktu FIR'Aun MAEN PB , wwkkkwwkwkww .. GG Serius nih , Caranya Adalah

1. Buat Sebuah Texboxt , namanya jgn drubah yy ..
2.buat juga 2 buah commandbutton , captionya clear , yang satu lagi captionya CEK IP atau blablabla...
3.Pada Tab Tool , Klik Kanan>Component>Pilih Microsoft Winsock
4.Masukkan Winsock ke form , Selesai ..

NIH CODEnya : ( PALING PENTING GAN )

Private Sub Command1_Click()
If Text1.Text = “” Then
    Command1.Enabled = False
    Text1.Text = Winsock1.LocalIP
Else
    Command1.Enabled = True

End If
End Sub

Private Sub Command2_Click()
Text1.Text = “”
If Text1.Text = “” Then
    Command1.Enabled = True
Else

    Command1.Enabled = False
End If
End Sub

Private Sub Form_Load()
Text1.Text = “”
If Text1.Text = “” Then
    Command1.Enabled = False

Else
    Command1.Enabled = True
End If
Text1.Text = Winsock1.LocalIP
End Sub