Make form open/close like a curtain
Make form open/close like a curtain
Rate Make form open/close like a curtain
(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
Make form open/close like a curtain Comments
No comments yet — be the first to post one!
Post a Comment