Private Const NETWORK_ALIVE_LAN = &H1 'net card connection
Private Const NETWORK_ALIVE_WAN = &H2 'RAS connection
Private Const NETWORK_ALIVE_AOL = &H4 'AOL
 
Private Declare Function IsNetworkAlive Lib "Sensapi" _ 
(lpdwFlags As Long) As Long 
 
Private Function IsNetConnectionAlive() As Boolean 
    Dim lngAlive As Long 
    IsNetConnectionAlive = IsNetworkAlive(lngAlive) = 1 
End Function 
 
Private Function IsNetConnectionLAN() As Boolean 
    Dim lngLAN As Long 
    If IsNetworkAlive(lngLAN) = 1 Then 
        IsNetConnectionLAN = lngLAN = NETWORK_ALIVE_LAN 
    End If 
End Function 
 
Private Function IsNetConnectionRAS() As Boolean 
    Dim lngRAS As Long 
    If IsNetworkAlive(lngRAS) = 1 Then 
        IsNetConnectionRAS = lngRAS = NETWORK_ALIVE_WAN 
    End If 
End Function 
 
Private Function IsNetConnectionAOL() As Boolean 
    Dim lngAOL As Long 
    If IsNetworkAlive(tmp) = 1 Then 
        IsNetConnectionAOL = lngAOL = NETWORK_ALIVE_AOL 
    End If 
End Function 
 
Private Function GetNetConnectionType() As String 
    Dim lngAlive As Long 
    If IsNetworkAlive(lngAlive) = 1 Then 
        Select Case lngAlive 
Case NETWORK_ALIVE_LAN: 
            GetNetConnectionType = _ 
            "More than one active LAN connection." 
Case NETWORK_ALIVE_WAN: 
            GetNetConnectionType = _ 
            "More than one active RAS connection." 
Case NETWORK_ALIVE_AOL: 
            GetNetConnectionType = _ 
            "There is a connection over AOL." 
Case Else: 
        End Select 
    Else 
        GetNetConnectionType = _ 
        "I can get another connection." 
    End If 
End Function 
 
Sub IsConnection() 
    MsgBox GetNetConnectionType 
End Sub