Option Explicit
 
Implements ISensNetwork
Implements ISensOnNow
Implements ISensLogon
 
Private Sub ISensLogon_DisplayLock(ByVal bstrUserName As SensEventsVB.LPSTRVB)
 
End Sub
 
Private Sub ISensLogon_DisplayUnlock(ByVal bstrUserName As SensEventsVB.LPSTRVB)
 
End Sub
 
Private Sub ISensLogon_Logoff(ByVal bstrUserName As SensEventsVB.LPSTRVB)
 
End Sub
 
Private Sub ISensLogon_Logon(ByVal bstrUserName As SensEventsVB.LPSTRVB)
 
End Sub
 
Private Sub ISensLogon_StartScreenSaver(ByVal bstrUserName As _
  SensEventsVB.LPSTRVB)
 
End Sub
 
Private Sub ISensLogon_StartShell(ByVal bstrUserName As SensEventsVB.LPSTRVB)
 
End Sub
 
Private Sub ISensLogon_StopScreenSaver(ByVal bstrUserName As _
  SensEventsVB.LPSTRVB)
 
End Sub
 
Private Sub ISensNetwork_ConnectionLost(ByVal bstrConnection As _
  SensEventsVB.LPSTRVB, ByVal ulType As SensEventsVB.UINT)
 
End Sub
 
Private Sub ISensNetwork_ConnectionMade(ByVal bstrConnection As _
  SensEventsVB.LPSTRVB, ByVal ulType As SensEventsVB.UINT, lpQOCInfo As _
  SensEventsVB.SENS_QOCINFO)
 
End Sub
 
Private Sub ISensNetwork_ConnectionMadeNoQOCInfo(ByVal bstrConnection As _
  SensEventsVB.LPSTRVB, ByVal ulType As SensEventsVB.UINT)
 
End Sub
 
Private Sub ISensNetwork_DestinationReachable(ByVal bstrDestination As _
  SensEventsVB.LPSTRVB, ByVal bstrConnection As SensEventsVB.LPSTRVB, ByVal _
  ulType As SensEventsVB.UINT, lpQOCInfo As SensEventsVB.SENS_QOCINFO)
 
End Sub
 
Private Sub ISensNetwork_DestinationReachableNoQOCInfo(ByVal bstrDestination As _
  SensEventsVB.LPSTRVB, ByVal bstrConnection As SensEventsVB.LPSTRVB, ByVal _
  ulType As SensEventsVB.UINT)
 
End Sub
 
Private Sub ISensOnNow_BatteryLow(ByVal dwBatteryLifePercent As _
  SensEventsVB.UINT)
 
End Sub
 
Private Sub ISensOnNow_OnACPower()
 
End Sub
 
Private Sub ISensOnNow_OnBatteryPower(ByVal dwBatteryLifePercent As _
  SensEventsVB.UINT)
 
End Sub

Gru?

Ralf