• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Open your form in the style of curtain of Cinema Hall dropping from up to bottom

Open your form in the style of curtain of Cinema Hall dropping from up to bottom

Open your form in the style of curtain of Cinema Hall dropping from up to bottom

Rate Open your form in the style of curtain of Cinema Hall dropping from up to bottom

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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