by shailesh bansal (3 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 6th November 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Open your form in the style of curtain of Cinema Hall dropping from up to bottom
Private Sub Form_Load()
Form1.Height = 510 'initial height of form in the
'BordorStyle=2-sizable window
actualheight = 5110
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
step = 50 ' must be factor of actualheight
Me.Height = Me.Height + step
If Me.Height > actualheight Then
Timer1.Enabled = False
End If
End Sub
No comments have been posted about Open your form in the style of curtain of Cinema Hall dropping from up to bottom. Why not be the first to post a comment about Open your form in the style of curtain of Cinema Hall dropping from up to bottom.