Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim hostNameOrAddress As String
Dim returnValue As IPAddress()
hostNameOrAddress = "community.csdn.net"
returnValue = Dns.GetHostAddresses(hostNameOrAddress)
Me.Text = returnValue(0).ToString
End Sub
End Class