Private Type POINTAPI
  x As Long
  y As Long
End Type
 
Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 
Private Type WINDOWPLACEMENT
  Length As Long
  flags As Long
  showCmd As Long
  ptMinPosition As POINTAPI
  ptMaxPosition As POINTAPI
  rcNormalPosition As RECT
End Type
 
Private Declare Function GetWindowPlacement Lib "user32" ( _
  ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long

Dim WP As WINDOWPLACEMENT
Dim nResult As Long
 
nResult = GetWindowPlacement(hWnd, WP)
Select Case WP.ShowCmd
  Case 1
    ' Normal
  Case 2
    ' Minimiert
  Case 3
    ' Maximiert
End Select

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de