Source Code Untuk Mengetahui IP address

Dibawah ini source untuk mengetahui ip address komputer kita, source seperti dibawah ini :

Private Sub Command1_Click()
MsgBox “IP Address = ” & Winsock1.LocalIP & vbCrLf & _
“HostName = ” & Winsock1.LocalHostName, _
vbInformation, “IP Address dan HostName”
End Sub