[أسامة]

كود :

   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

اظهار رسالة معينة بعد فتح الويندوز