[أبو خالد الشكري]

كود :

Imports System.Net

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       CheckForInternetConnection()
   End Sub
   Public Shared Function CheckForInternetConnection() As Boolean
       Try
           Using client = New WebClient()
               Using stream = client.OpenRead("http://www.google.com")
                   MessageBox.Show("توجد إنترنت")
                   Return True
               End Using
           End Using
       Catch
           MessageBox.Show("لا توجد إنترنت")
           Return False
       End Try
   End Function

مرحبا بكم جميعا
فقط ملاحظة صغيرة :
ستحتاج إلى إضافة السطر التالي في قسم التصريحات العامة
Imports System.Net

* وإضافة بسيطة على الكود !