'---- ประกาศ Namespace ที่จำเป็นต้องใช้ ดังนี้

Imports System.Net

'-------------------------------------------------

' โค้ดในปุ่ม BtnSearchIP

Private Sub BtnSearchIP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSearchIP.Click

      Dim IPHEntr y As IPHostEntry
     IPHEntry = Dns.GetHostEntry(TxtCompName.Text)
     For i As Int16 = 0 To UBound(IPHEntry.AddressList)
          lbIPAddress.Text &= " " & IPHEntry.AddressList(i).ToString
     Next i

End Sub

' โค้ดในปุ่ม BtnCancel

Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click

      lbIPAddress.Text = ""
     TxtCompName.Clear()
     TxtCompName.Focus()

End Sub

End Class