Imports Microsoft.Win32
Public Class Form1
  Inherits System.Windows.Forms.Form

  #Region " Vom Windows Form Designer generierter Code "
    Public Sub New()
      MyBase.New()

      InitializeComponent()

      AddHandler SystemEvents.DisplaySettingsChanged, _
            AddressOf DisplayHasChanged
      AddHandler SystemEvents.TimeChanged, _
            AddressOf TimeHasChanged
      AddHandler SystemEvents.SessionEnded, _
            AddressOf SessionHasEnded
    End Sub
    '...
  #End Region

  Private Sub DisplayHasChanged(ByVal sender As Object, _
          ByVal e As EventArgs)
    Me.TopMost = True
    Label1.ForeColor = Color.Red
    Label1.Text = "Die Bildschirmeinstellungen wurden geändert!"
  End Sub

  Private Sub TimeHasChanged(ByVal sender As Object, _
          ByVal e As EventArgs)
    Me.TopMost = True
    Label2.ForeColor = Color.Red
    Label2.Text = "Die Systemzeit wurde geändert!"
  End Sub

  Private Sub SessionHasEnded(ByVal sender As Object, _
          ByVal e As SessionEndedEventArgs)
    Me.TopMost = True
    Label2.ForeColor = Color.Red
    Label3.Text = "Der Benutzer hat sich abgemeldet!"
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles Button1.Click
    Me.Close()
  End Sub
End Class