كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
AddHandler SystemEvents.SessionSwitch, AddressOf OnSessionstart
End Sub
Protected Shared Sub OnSessionstart(sender As [Object], e As SessionSwitchEventArgs)
If e.Reason = SessionSwitchReason.SessionLogon Then
MsgBox(0)
End If
End Sub