Option Explicit
Private Declare Function IsConnected Lib "bnConn.dll" Alias "bnWebOk" () As Long
Private Sub Form_Load()
MsgBox IsConnectedToInternet()
End Sub
Private Function IsConnectedToInternet() As Boolean
IsConnectedToInternet = (IsConnected > 0)
End Function