si te refieres a saber la ip local con un programa se hace de la siguiente manera
agregas un control winsock desde proyecto->componentes->microsoft winsock control 6.0 lo agregas al form agregas un un textbox y en el form load o en un boton pones
Text1.Text = Winsock1.LocalIP
por ejemplo
Private Sub Command1_Click()
Text1.Text = Winsock1.LocalIP
End Sub