Stop maximized form from moving

[vbuser1]

I am using a picturebox as a container to act as a mdiparent because only 1 midparent is allowed when I need 2. When I maximize a "child" form, the title bar is still visible which enable the user to move the max form. I get an error when I set moveable=false during runtime. Is there any way to stop the maxed form from moving? Thanks.

[kedaman]

Well you could remove the titlebar?

[vbuser1]

If I remove the titlebar then the user can't use the 3 buttons in the titlebar to min, max, exit.

I believe this is what you want to do:

Dim iLeft As Integer
Dim iTop As Integer

Private Sub Form_Resize()
On Error Resume Next
iLeft = Me.Left
iTop = Me.Top
If Me.WindowState = vbMaximized Then
Me.Left = iLeft
Me.Top = iTop
End If
End Sub

This will remove the move command from the Form

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOSITION = &H400&

Private Sub Form_Load()
    RemoveMenu GetSystemMenu(hwnd, 0), 1, MF_BYPOSITION
End Sub

[vbuser1]

Matthew Gates code gives me the error: A form can't be moved or resized while minimized or maximized.

Originally posted by vbuser1
Matthew Gates code gives me the error: A form can't be moved or resized while minimized or maximized.

That is why the On Error Resume Next is there...to ignore it.