EXPLODE A FORM

by [email protected] (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 11^th January 2004
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

EXPLODE A FORM

Rate EXPLODE A FORM



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

Download this snippet Add to My Saved Code

EXPLODE A FORM Comments

No comments have been posted about EXPLODE A FORM. Why not be the first to post a comment about EXPLODE A FORM.

EXPLODE A FORM

EXPLODE A FORM Comments

Post your comment

Difficulty