Public Function IsOnline() As Boolean
        Dim res As Boolean = False
        Try
            Dim req As Net.WebRequest = Net.WebRequest.Create( _
              "http://www.google.com/")
            Using resp As Net.WebResponse = req.GetResponse
                res = True
            End Using
        Catch ex As Net.WebException
        End Try
        Return res
    End Function