Öncelikle Project>Components yolunu izleyerek açılan pencerenin Controls bölümünden Microsoft Winsock Controls 6.0 (SP6) yi araç 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