Public Property Host() As Object
        Get
            Return ipheHost
        End Get
        Set(ByVal Value As Object)
            'On Error Resume Next
            If (Value.GetType.ToString.ToLower = "system.string") Then
                '*
                '* Find the Host's IP address
                '*
                Try
                    ipheHost = System.Net.Dns.GetHostByName(Value)
                Catch
                    ipheHost = Nothing
                    ''End Try
                    udtError.Number = PING_ERROR_HOST_NOT_FOUND
                    If udtError.Number = 32769 Then MessageBox.Show("Bitte die" & _
                      "IP Adresse verwenden")
                    udtError.Description = "Host " & ipheHost.HostName & " not" & _
                    "found."
                End Try
            ElseIf (Value.GetType.ToString.ToLower = "system.net.iphostentry") _
              Then
                    ipheHost = (Value)
            Else
                    ipheHost = Nothing
            End If
        End Set
    End Property