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 Sub Command1_Click(index As Integer)
   Dim Text As String
   Text = "Die Tastenkombination >Alt + Tab< wurde "

   Command1(0).Visible = Command1(0).Visible Xor -1

   Select Case index
      Case 1
         Text = Text & "aktiviert."
         AltTabTasteSchalten False
      Case Else
         Text = Text & "deaktiviert."
         AltTabTasteSchalten True
   End Select

   Label1.Caption = Text
End Sub

Private Sub Command2_Click()
   AltTabTasteSchalten False
   Unload Me
   End
End Sub

Private Sub AltTabTasteSchalten(Zustand As Boolean)
  Dim vorher
  SystemParametersInfo 97, Zustand, vorher, 0
End Sub