TIMER CONTROL

AIM:

To generate the count using Timer control

Procedure:

Step1: Create a standard Exe project

Step2: Design the form with label and command button for each purpose needed

Step3: On the click event the start button the timer should be enabling and incrementing count should be displayed

Step4: On the click event on the stop button the timer should be stop

Step5: On click event of the exit button and end the program

SOURCE CODE

Dim A As Integer

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Timer1_Timer()

 A = A + 1

Print "Count"; A

End Sub

SCREEN LAYOUT