This one seems like it should be so simple - can anyone
point out what I messing up? This get page fault as soon as
sensapi call is made ....VB6 caused an invalid page fault in
module SENSAPI.DLL at 017f:60001097.

Thanks
Dale

Public Const NETWORK_ALIVE_LAN As Long = &H1   'The computer
has one or more LAN cards that are active.
Public Const NETWORK_ALIVE_WAN As Long = &H2   'The computer
has one or more active RAS connections.
Public Const NETWORK_ALIVE_AOL As Long = &H4     'w95/98 is
on AOL

Public Type QOCINFO
        dwSize As Long
        dwFlags As Long
        dwInSpeed As Long
        dwOutSpeed As Long
End Type

    Public Declare Function IsNetworkAlive Lib "sensapi.dll"
_
(ByVal dwFlag As Long) As Long    ' Also tried As Boolean

==============

Private Sub Command1_Click()

Label1.Caption = IsNetworkAlive(NETWORK_ALIVE_LAN)

End Sub

Thanks - got it...needed to be (ByRef dwFlags ....

Appreciate the help.

Dale