• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Make form open/close like a curtain

Make form open/close like a curtain

Make form open/close like a curtain

Rate Make form open/close like a curtain

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    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