ö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

20****mrcplus****04