' benötigte APIs
Public Declare Function GetWindowRect Lib "user32" _
  (ByVal hWnd As Long, lpRect As RECT) As Long
 
Public Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

' Fenstergröße und Position ermitteln
Dim R As RECT  
GetWindowRect lnghWnd, R

' Deklaration
Public Declare Function MoveWindow Lib "user32" ( _
  ByVal hWnd As Long, _
  ByVal X As Long, ByVal Y As Long, _
  ByVal nWidth As Long, ByVal nHeight As Long, _
  ByVal bRepaint As Long) As Long

' Fenster an Position 0, 0 schieben
Dim R As Rect
Dim xPos As Long
Dim yPos As Long
Dim nWidth As Long
Dim nHeight As Long
 
GetWindowRect lnghWnd, R
xPos = R.Left
yPos = R.Top
nWidth = R.Right - R.Left
nHeight = R.Bottom - R.Top
 
xPos = 0: yPos = 0
MoveWindow lnghWnd, xPos, yPos, nWidth, nHeight, True

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de