Disable sys knapper

Prøv at se i hjælp under:
Keycode Constants

Private Sub Form1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <> 18 Then
    Q = MsgBox(\"Den tast har du ik\' brug for her!\", vbOKOnly, \"Ups!\")
End If
End Sub

Denne her lader brugeren taste enter og ikke andet...

hmmmm, det virker ikke... kan du ikke prøve at give mig den fulde kode til at disable alle system knapper ?

jeg lavede en form der maximerer sig selv til at fylde hele skærmen - uden knapper og så en knap midt på der har den her kode:

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <> 18 Then
    Q = MsgBox(\"Den tast har du ik\' brug for her!\", vbOKOnly, \"Ups!\")
End If
End Sub

det virker næsten 100%, men man kan stadigvæk trykke alt+tab og wintasten

hvis ikke du ved det.. kan du så fortælle mig hvordan man disabler hele tastaturet?

Desværre nej.

Jeg har selv fundet løsningen nu!
Option Explicit
Private Declare Function SystemParametersInfo Lib \"user32\" Alias \"SystemParametersInfoA\" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SETSCREENSAVEACTIVE = 17

Private Const SPI_LANGDRIVER = 12
Private Const SPI_SCREENSAVERRUNNING = 97



Private Sub DisCAL(bState As Boolean)
Dim RC, LngWas As Long
RC = SystemParametersInfo(SPI_SCREENSAVERRUNNING, bState, LngWas, 0)
End Sub

Private Sub Command1_Click()
DisCAL False
End Sub

Private Sub Command2_Click()
DisCAL True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <> 18 And KeyCode <> 9 Then
    Q = MsgBox(\"Den tast har du ik\' brug for her!\", vbOKOnly, \"Ups!\")
End If
End Sub

Men jeg blev nød til at bruge lidt kode fra engberg2 så han får 30points