Option Explicit
 
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.dll" (ByVal hwnd As _
  Long, ByRef lpwndpl As WINDOWPLACEMENT) As Long
 
 
Private Sub Form_Load()
 
  Timer1.Interval = 100
  Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
 
  Dim Result As Long
  Dim WindowInfo As WINDOWPLACEMENT
 
  Result = GetWindowPlacement(Me.hwnd, WindowInfo)
 
End Sub

Gruß
Dirk

--
?Get it right the first time