Make form open/close like a curtain

by Sher A. Khan (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 14^th June 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Make form open/close like a curtain



    If Timer1.Enabled = False And Timer2.Enabled = False Then
        Timer1.Enabled = True
        Timer2.Enabled = True
        Timer3.Enabled = False
        Timer4.Enabled = False
    
    Else
        Timer1.Enabled = False
        Timer2.Enabled = False
        Timer3.Enabled = True
        Timer4.Enabled = True
    End If
End Sub

Private Sub Timer1_Timer()
Me.Height = Me.Height + 100
End Sub

Private Sub Timer2_Timer()
Timer1.Enabled = False
End Sub

Private Sub Timer3_Timer()
Me.Height = Me.Height - 100
End Sub

Private Sub Timer4_Timer()
Timer3.Enabled = False
End Sub

Download this snippet Add to My Saved Code

Make form open/close like a curtain Comments

No comments have been posted about Make form open/close like a curtain. Why not be the first to post a comment about Make form open/close like a curtain.

Make form open/close like a curtain

Make form open/close like a curtain Comments

Post your comment

Difficulty