'Information about the Windows Sockets implementation
        'http://support.microsoft.com/default.aspx?scid=kb;EN-US;q154512
        Private Structure WSADATA
            Dim wVersion As Short
            Dim wHighVersion As Short
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=256)> Dim _
              szDescription As String
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)> Dim _
            szSystemStatus As String
            Dim iMaxSockets As Integer
            Dim iMaxUDPDG As Integer
            Dim lpVendorInfo As Integer
 
        End Structure
 
        'Send an Internet Control Message Protocol (ICMP) echo request, and 
        ' then return one or more replies.
        'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcetc
        ' pip/htm/cerefIcmpSendEcho.asp
        Private Declare Function IcmpSendEcho Lib "icmp.dll" (ByVal IcmpHandle _
          As Integer, ByVal DestinationAddress As Integer, ByVal RequestData As _
          String, ByVal RequestSize As Integer, ByVal RequestOptions As _
          Integer, ByRef ReplyBuffer As ICMP_ECHO_REPLY, ByVal ReplySize As _
          Integer, ByVal Timeout As Integer) As Integer
 
        'This structure describes the options that will be included in the 
        ' header of an IP packet.
        'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcetc
        ' pip/htm/cerefIP_OPTION_INFORMATION.asp
        Private Structure IP_OPTION_INFORMATION
            Public Ttl As Byte
            Public Tos As Byte
            Public Flags As Byte
            Public OptionsSize As Byte
            Public OptionsData As Integer
        End Structure
 
        'This structure describes the data that is returned in response to an 
        ' echo request.
        'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcesd
        ' kr/htm/_wcesdk_icmp_echo_reply.asp
        Private Structure ICMP_ECHO_REPLY
            Public address As Integer
            Public Status As Integer
            Public RoundTripTime As Integer
            Public DataSize As Integer
            Public Reserved As Short
            Public ptrData As Integer
            Public Options As IP_OPTION_INFORMATION
            <VBFixedString(250), MarshalAs(UnmanagedType.ByValTStr, _
              SizeConst:=250)> _
            Public Data As String
        End Structure
#End Region