hola estoy haciendo un protector de pantalla, pero es como un bloqueo de pantalla ya tengo el codigo hecho y correo y todo pero quiero es que no funciones las teclas alt ctrl supr , alt tab, y la tecla de windows alguien me puede ayudar

este es el codigo

Option Explicit

' Flag
Dim OK As Boolean


Private Sub cmdEntrar_Click()
   
    ' Cadena de conexión ( INDICAR EL PATH DE LA BASE DE DATOS )
    Const C_CADENA = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                     "Data Source=" & "C:\WINDOWS\bd2.mdb" & ";"
   
    ' Variable para el recordset
    Dim Rst_Login As Recordset
   
    ' crea el recordset
    Set Rst_Login = New Recordset
   
    Dim SQL As String
   
    ' consulta SQL ( Campos: Nombre y Password) _
                    Textbox ( txt_Usuario y txt_Password) _
                    Tabla: Usuarios
   
    SQL = "SELECT Nombre, Password " & _
                "FROM Usuarios " & _
                "WHERE Nombre = '" & txt_Usuario.Text & "'" _
                   & "AND Password = '" & txt_Password.Text & "'"

    With Rst_Login
        ' Abre el recordset
        .Open SQL, C_CADENA
   
        ' Si el recordset está vacío es por que es incorrecto
        If .EOF Then
            MsgBox " El usuario o Password es incorrecto ", _
                     vbCritical, " Login incorrecto "
            ' Cierra y descarga el Recordset
            Rst_Login.Close
            Set Rst_Login = Nothing
            Exit Sub
        End If
    End With

    ' Cierra y descarga el Recordset
    Rst_Login.Close
    Set Rst_Login = Nothing
   
    'Cambia el Flag para que no cierre el programa con End
    OK = True
   
    ' Descarga el formulario y prosigue en el SubMain
    Unload Me

End Sub


Private Sub Form_Unload(Cancel As Integer)
    Set Frmlogin = Nothing
    If OK = False Then
       End
    End If
End Sub