Private Declare Function GetClientRect Lib "user32" ( _
  ByVal hwnd As Long, _
  lpRect As RECT) As Long
 
Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

Dim R As RECT
 
' Größe und Position des MDIClient-Window ermitteln
GetClientRect MCA.hwnd, R

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de