Private Function checkIPConnectionState(ByVal iPAddress As String) As _
      Boolean
 
        Dim pingObject As New System.Net.NetworkInformation.Ping
 
        Return CBool(pingObject.Send(iPAddress).Status)
 
 
    End Function