Gruß
Dirk

--
?Get it right the first time

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As _
  Integer
Private einlesen As Boolean, AktivFenster As Long

Sub Form_Resize()
 If Me.WindowState = 1 Then Exit Sub
 If einlesen = True Then Exit Sub
 If GetAsyncKeyState(&H1)<> 0 Then
  For i = 0 To 5
   If Me.HauptMenu(i).Visible = True Then AktivFenster = i
   HauptMenu(i).Visible = False
  Next i
  einlesen = True
  Me.FormWaechter.Enabled = True
  Exit Sub
 End If
 ...

Private Sub FormWaechter_Timer()
 If GetAsyncKeyState(&H1) = 0 Then
  einlesen = False
  Me.FormWaechter.Enabled = False
  Form_Resize
  HauptMenu(AktivFenster).Visible = True
 End If
End Sub