come prima cosa inserisci il componente "microsoft winsock" sul tuo form poi crei un bottone, e nel bottone metti il seguente codice.
codice:
Private Sub Command1_Click()
    MsgBox Winsock1.LocalIP
End Sub
ciao