I have no problem allowing resizing MDIForm ?

[dong]

I encountered no problems when resizing allows MDIForm, when running this code below:

Private mHeight As Long, mWidth As Long   
Private Sub MDIForm_Load()     
mHeight = Me.Height     
mWidth = Me.Width  
End Sub   

'disable mdi form resize
Private Sub MDIForm_Resize()     
Me.WindowState = 0 'Normal    
Me.Height = mHeight     
Me.Width = mWidth  
End Sub

when I press MinButton of MIDIForm not. can change the code above to just have two functions: do not allow to resize and allow MinButton (or allow MaxButton) of MDIForm it ?

[Nightwalker83]

If I understand you can resize the form because you are setting to the "Normal" size.

Me.WindowState = 0

[DataMiser]

I can't understand the question.

You can't re-size a form if it is set to min or max. You can re-size a form if it is set to normal and the border style allows it to be re-sized.

So what is your question?

[Bonnie West]

Perhaps the following is what you want?

Option Explicit

Private Const GWL_STYLE  As Long = (-16&)   'Retrieves the window styles.
Private Const WS_SIZEBOX As Long = &H40000  'The window has a sizing border.

Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongW" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongW" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub MDIForm_Load()
    Move Left, Top, 800! * Screen.TwipsPerPixelX, 600! * Screen.TwipsPerPixelY          'Resize MDIForm to 800x600 px
    SetWindowLong hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) And Not WS_SIZEBOX    'Disable resizing from now on
End Sub