Vb'de İp Adresi Görme

'forma label1 label2 ekleyiniz
'forma winsock eklentisi ekleyiniz
'formu okutun basit ornektir gelistirme size kaldi.

Private Sub Form_Load()
on Error Resume Next
Label1.Caption = ("ip Adresi")
Label2.Caption = ("Ag Adiniz")
Text1.Text = ("" & Winsock1.LocalIP)
Text2.Text = ("" & Winsock1.LocalHostName)
End Sub