Code Vb.Net

Public Class Form1
    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef ld As Integer, ByVal dr As Integer) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If InternetGetConnectedState(0, 0) Then
            MsgBox("You Are Connected With Internet")
        Else
            MsgBox("You Aren't Connected With Internet")
        End If
    End Sub