Option Explicit
 
Private Declare Function GetWindowPlacement Lib "user32" ( _
  ByVal hWnd As Long, _
  lpwndpl As WINDOWPLACEMENT) As Long
 
Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 
Private Type POINTAPI
  X As Long
  Y 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
 
Public Enum SW_CMD
  SW_HIDE = 0
  SW_SHOWNORMAL = 1
  SW_SHOWMINIMIZED = 2
  SW_SHOWMAXIMIZED = 3
  SW_SHOWNOACTIVATE = 4
  SW_SHOW = 5
  SW_MINIMIZE = 6
  SW_SHOWMINNOACTIVE = 7
  SW_SHOWNA = 8
  SW_RESTORE = 9
End Enum
 
Public Function GetWindowState(ByVal hWnd As Long) As SW_CMD
  Dim W As WINDOWPLACEMENT
 
  If GetWindowPlacement(hWnd, W) = 0 Then
    ' Fehler! Evtl. wurde kein Window mit dem 
    ' angegebenen Handle gefunden
    GetWindowState = -1
  Else
    ' Fensterstatus zurückgeben
    GetWindowState = W.showCmd
  End If
End Function

Private Sub Command1_Click()
  Dim nState As SW_CMD
 
  nState = GetWindowState(Me.hWnd)
 
  Select Case nState
    Case SW_CMD.SW_HIDE
      MsgBox "Fenster ist hidden"
    Case SW_CMD.SW_SHOWMAXIMIZED
      MsgBox "Fenster ist maximiert"
    Case SW_CMD.SW_SHOWMINIMIZED
      MsgBox "Fenster is minimiert"
    Case SW_CMD.SW_SHOWNORMAL
      MsgBox "Fenster wird normal angezeigt"
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de