lås mus og tast.

denne kan i hvert fald gøre det :-)

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Private Sub Command1_Click()
BlockInput True
End Sub

Private Sub Command2_Click()
BlockInput False
End Sub

taster:

Option Explicit

Private Sub Command1_Click()
  If Command1.Caption = "ENABLE Keyboard" Then
      Command1.Caption = "DISABLE Keyboard"
      Me.KeyPreview = False
  Else
      Command1.Caption = "ENABLE Keyboard"
      Me.KeyPreview = True
  End If
 
  Text1.SetFocus
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
  KeyAscii = vbCancel
End Sub

Private Sub Form_Load()
  Command1.Caption = "DISABLE Keyboard"
  Me.KeyPreview = False
End Sub