Function ShowDHCPIP()
        Try
            Dim query As New ManagementObjectSearcher("SELECT * FROM" & _
              "Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
            Dim queryCollection As ManagementObjectCollection = query.Get()
            Dim mo As ManagementObject
            Dim strDHCPIP(1) As String
            For Each mo In queryCollection
                strDHCPIP = CType(mo.GetPropertyValue("DHCPServer"), String())
            Next
            ShowDHCPIP = strDHCPIP(0)
            TextBox7.Text = ShowDHCPIP
        Catch ex As Exception
            ShowDHCPIP = ""
        End Try