Fungsi Untuk Memeriksa Apakah Terhubung Ke Internet

Di bawah ini fungsi untuk memeriksa, apakah komputer terhubung ke internet atau tidak?

Option Explicit 
 
Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long 
Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long 
' 
Const RAS95_MaxEntryName = 256 
Const RAS95_MaxDeviceType = 16 
Const RAS95_MaxDeviceName = 32 
' 
Private Type RASCONN95 
    dwSize As Long 
    hRasCon As Long 
    szEntryName(RAS95_MaxEntryName) As Byte 
    szDeviceType(RAS95_MaxDeviceType) As Byte 
    szDeviceName(RAS95_MaxDeviceName) As Byte 
End Type 
' 
Private Type RASCONNSTATUS95 
    dwSize As Long 
    RasConnState As Long 
    dwError As Long 
      szDeviceType(RAS95_MaxDeviceType) As Byte 
    szDeviceName(RAS95_MaxDeviceName) As Byte 
End Type 
 
Private Function IsConnected() As Boolean 
' 
    Dim TRasCon(255) As RASCONN95 
    Dim lg As Long 
    Dim lpcon As Long 
    Dim RetVal As Long 
    Dim Tstatus As RASCONNSTATUS95 
    ' 
    TRasCon(0).dwSize = 412 
    lg = 256 * TRasCon(0).dwSize 
    ' 
    RetVal = RasEnumConnections(TRasCon(0), lg, lpcon) 
    If RetVal <> 0 Then 
        MsgBox "ERROR" 
        Exit Function 
    End If 
    ' 
        Tstatus.dwSize = 160 
        RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus) 
    If Tstatus.RasConnState = &H2000 Then 
        IsConnected = True 
    Else   
        IsConnected = False 
    End If 
End Function

Private Sub Command1_Click() 
    MsgBox IsConnected 
End Sub