Declare SetFocus [...]
 
' ### oder ###
 
Private Declare Function ShowWindow Lib "User32" (ByVal hwnd As Long, ByVal _
  nCmdShow As Long) As Long
Const SW_HIDE = 0 'Versteckt das Fenster
Const SW_MAXIMIZE = 3 'Maximiert das Fenster
Const SW_MINIMIZE = 6 'Minmiert das Fenster
Const SW_NORMAL = 1 'Aktiviert das Fenster
Const SW_SHOW = 5 'Zeigt das Fenster an, auch wenn es versteckt ist
Const SW_RESTORE = 9 'Stellt das Fenster wieder her
Const SW_SHOWMAXIMIZED = 3 'Zeigt das Fenster an und Maximiert es
Const SW_SHOWMINIMIZED = 2 'Zeigt das Fenster an und Minimiert es
Const SW_SHOWMINNOACTIVE = 7 'Minimiert das Fenster aber aktiviert es nicht
Const SW_SHOWNA = 8 'Zeigt das Fenster an aber aktiviert es nicht
Const SW_SHOWNOACTIVATE = 4 'Zeigt das Fenster an ohne es zu aktivieren
Const SW_SHOWNORMAL = 1 'Zeigt das Fenster und aktiviert dies
 
ShowWindow Hwnd, SW_MAXIMIZE

____________________________________