Const WS_BORDER = &H8& Const WS_DLGFRAME = &H4& Const WS_THICKFRAME = &H4& Const WS_CAPTION = &HC& ' WS_BORDER Or WS_DLGFRAME Const WS_EX_CLIENTEDGE = &H2& Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Declare Function AdjustWindowRectEx _ Lib "user32" alias "AdjustWindowRectEx" _ (lpRect As RECT, ByVal dsStyle As Long, ByVal bMenu As Long, ByVal dwEsStyle As Long) As Long Declare Function MoveWindow Lib "user32" alias "MoveWindow" _ (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 declare sub formonshow create form as qform onshow=formonshow end create form.showmodal Sub Formonshow 'KPD-Team 2000 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Dim R As RECT, hDWP As Long R.Left = 30 R.Top = 30 R.Bottom = 200 R.Right = 120 AdjustWindowRectEx R, WS_THICKFRAME Or WS_CAPTION, False, WS_EX_CLIENTEDGE MoveWindow form.handle, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, False End Sub