VB Snippet - Limit Form Resize

[James Stanich]

'*******************************************************************************
' MODULE:       Form1
' AUTHOR:       Speedy
'
' DESCRIPTION:
' LIMIT FORM RESIZE EXAMPLE
' YOU WILL NEED TO HANDLE THE FLICKERING EFFECT !!!
 '*******************************************************************************
 
Option Explicit
 
 '*******************************************************************************
' Form_Load (SUB)
'
' DESCRIPTION:
' ACTION ON FORM LOAD
 '*******************************************************************************
 
Private Sub Form_Load()
    
    '  RESIZE THE FORM
    
    Call Form_Resize
    
End Sub
 
 
 '*******************************************************************************
' Form_Resize (SUB)
'
' DESCRIPTION:
' ACTION ON RESIZE OF FORM
 '*******************************************************************************
 
Private Sub Form_Resize()
    
    On Error Resume Next
    
    Dim WMIN As Double, HMIN As Double
    
    WMIN = 2500
    
    HMIN = 2500
    
    If Me.Width <= WMIN Then
        
        ' DO NOT ALLOW WIDTH TO BE SET BELOW MINIMUM
        
        Me.Width = WMIN
        
    End If
    
    If Me.Height <= HMIN Then
        
        ' DO NOT ALLOW WIDTH TO BE SET BELOW MINIMUM
        
        Me.Height = HMIN
        
    End If
    
End Sub