Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Declare Function SwitchDesktop Lib "user32" (ByVal hDesktop As _
      Integer) As Integer
    Private Declare Function OpenDesktop Lib "user32.dll" Alias "OpenDesktopA" ( _
    ByVal lpszDesktop As String, ByVal dwFlags As Integer, ByVal fInherit As _
    Boolean, ByVal dwDesiredAccess As Integer) As Integer
    Private Declare Function CloseDesktop Lib "user32.dll" (ByVal hDesktop As _
    Integer) As Integer
    Private Const DESKTOP_SWITCHDESKTOP As Integer = &H100
 
    Dim DT_Lock As Date = "00:00:00"
    Dim DT_unlock As Date = "00:00:00"
    Dim Gesamt As Date = "00:00:00"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim Verz As String
        Verz = System.Environment.CurrentDirectory.ToString
        Me.NotifyIcon1.Visible = True
        Me.NotifyIcon1.Icon = New Icon(Verz & "\Icon_0047.ico")
        Me.NotifyIcon1.Text = "PC Lock Monitor"
        Timer1.Interval = 1000
        Timer1.Enabled = True
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles BTEnde.Click
        Me.NotifyIcon1.Visible = False
        Timer1.Enabled = False
        Me.Close()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim p_lngHwnd As Integer
        Dim p_lngRtn As Integer
        Gesamt = Gesamt.AddSeconds(1)
        Label3.Text = Gesamt
        p_lngHwnd = OpenDesktop("default", 0, False, DESKTOP_SWITCHDESKTOP)
        p_lngRtn = SwitchDesktop(p_lngHwnd)
        If p_lngRtn = 0 Then
            DT_Lock = DT_Lock.AddSeconds(1)
            Label1.Text = DT_Lock
        Else
            DT_unlock = DT_unlock.AddSeconds(1)
            Label2.Text = DT_unlock
        End If
        p_lngHwnd = CloseDesktop(p_lngHwnd)
    End Sub
 
    Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.SizeChanged
        If WindowState = FormWindowState.Minimized Then
            ShowInTaskbar = False
        End If
    End Sub
 
    Private Sub NotifyIcon1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles NotifyIcon1.Click
        If WindowState = FormWindowState.Minimized Then
            WindowState = FormWindowState.Normal
            ShowInTaskbar = True
        End If
        Me.Show()
    End Sub
 
End Class