• Home
 · 
• Custom Controls/Forms/Menus
 · 
• EXPLODE A FORM

EXPLODE A FORM

EXPLODE A FORM

Rate EXPLODE A FORM

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub ExplodeForm(frm As Form)
    Dim x As Long
    Dim factor  As Double
    Dim width As Integer
    Dim height As Integer
    
    height = frm.height
    width = frm.width
    factor = height / width
    frm.width = 0
    frm.height = 0
    frm.Show
    
    For x = 0 To width Step 215
        frm.width = x
        frm.height = x * factor
        With frm
            .Left = (Screen.width - .width) / 2
            .Top = (Screen.height - .height) / 2
        End With
    Next x
    
End Sub