Mengunci windows menggunakan Visual Basic 2008

Lock windows

Public Class Form1

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        e.Cancel = True

    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        Me.TopMost = False 'True

        Me.WindowState = FormWindowState.Maximized

        If e.KeyCode = Keys.Alt Then

            End

        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

        'If Me.WindowState = FormWindowState.Maximized Then

        'Me.WindowState = FormWindowState.Maximized

        'End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class