Консольное приложение которое отображеет время блокировки ПК

Imports System.Runtime.InteropServices
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim session As SessionChangeHandler = New SessionChangeHandler()
    End Sub
End Class
 
Class SessionChangeHandler
    Inherits Control
 
    <DllImport("WtsApi32.dll")>
    Private Shared Function WTSRegisterSessionNotification(ByVal hWnd As IntPtr,
    <MarshalAs(UnmanagedType.U4)> ByVal dwFlags As Integer) As Boolean
 
    End Function
    <DllImport("WtsApi32.dll")>
    Private Shared Function WTSUnRegisterSessionNotification(ByVal hWnd As IntPtr) As Boolean
 
    End Function
    Private Const NOTIFY_FOR_THIS_SESSION As Integer = 0
    Private Const WM_WTSSESSION_CHANGE As Integer = &H2B1
    Private Const WTS_SESSION_LOCK As Integer = &H7
    Private Const WTS_SESSION_UNLOCK As Integer = &H8
    Public Event MachineLocked As EventHandler
    Public Event MachineUnlocked As EventHandler
 
    Public Sub New()
        If Not WTSRegisterSessionNotification(Me.Handle, NOTIFY_FOR_THIS_SESSION) Then
            Marshal.ThrowExceptionForHR(Marshal.GetLastWin32Error())
        End If
    End Sub
 
    Protected Overrides Sub OnHandleDestroyed(ByVal e As EventArgs)
        WTSUnRegisterSessionNotification(Me.Handle)
        MyBase.OnHandleDestroyed(e)
    End Sub
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_WTSSESSION_CHANGE Then
            Dim value As Integer = m.WParam.ToInt32()
 
            If value = WTS_SESSION_LOCK Then
                OnMachineLocked(EventArgs.Empty)
            ElseIf value = WTS_SESSION_UNLOCK Then
                OnMachineUnlocked(EventArgs.Empty)
            End If
        End If
 
        MyBase.WndProc(m)
    End Sub
 
    Protected Overridable Sub OnMachineLocked(ByVal e As EventArgs)
        MsgBox(Now.ToString + ": screen locked") 'Вылетает сообщение при блокировке экрана
    End Sub
 
    Protected Overridable Sub OnMachineUnlocked(ByVal e As EventArgs)
        MsgBox(Now.ToString + ": screen unlocked") 'При разблокировке экрана
    End Sub
End Class