This is how I do it.
I don't know if it is the best option, but it works for me.
Private Sub Form_Resize()
With <formName>
.Width = IIf(.Width < <minWidth>, <minWidth>, .Width)
.Height = IIf(.Height < <minHeight>, <minHeight>, .Height)
end with
end Sub
Basically what you do is...