Boot Lock Screen

A Secure lock screen application:

 

Code:

Public Class Form1

    Private Property alp As Boolean

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

        Me.ShowInTaskbar = False

        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

        Me.TopMost = True

        Me.MaximizeBox = True

        alp = False

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Button1.BringToFront()

        If TextBox1.Text = "pass" Then

            My.Computer.Audio.Play("C:\w.wav")

            alp = True

        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        If alp = False Then

            Button2.SendToBack()

        End If

        If alp = True Then

            Button2.BringToFront()

            Close()

        End If

    End Sub

End Class