Wskaźnik połączenia z internetem VB2010

Jak zrobić w Visual Basic wskaźnik połącznia z internetem ? np. Wchodzisz do program a gdzieś tam pisze że jest połącznie albo go nie ma

Public Shared Function CheckForInternetConnection() As Boolean
    Try
        Using client = New WebClient()
            Using stream = client.OpenRead("http://www.google.com")
                Return True
            End Using
        End Using
    Catch
        Return False
    End Try
End Function