Private Sub MyForm_Resize() Select Case Me.Height Case Is < 1000 Me.Height = 1000 Case Is > 10000 Me.Height = 10000 End Select End Sub