Oncelikle Project>Components yolunu izleyerek acılan pencerenin Controls bolumunden
Microsoft Winsock Controls 6.0 (SP6) yi arac kutusuna ekleyin.
Forma buton ve winsock nesnesini ekleyin.
Aşağıdaki kodları yazın :

Private Sub Command1_Click()
ip = Winsock1.LocalIP
MsgBox ip
End Sub
__________________