Mengunci tampilan windows

Lock

Public Class lock

    Private Declare Function apiblockInput Lib "User32" Alias "BlockInput" (ByVal fBlocklt As Boolean) As Boolean

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

        MsgBox(apiblockInput(True))

    End Sub

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

        apiblockInput(False)

    End Sub

End Class