Im making a speed test program

[czi02]

Hi there:

Im making a speedtest project. for example: I had two options: the 1min and 2min in the combo box. I had two listbox. The first listbox, I had a text that I ahb deen encode. Then the 2nd listbox, there you will be type the words that had been written in the 1st listbox. If I will select the 1minute, then the stop will appear so that you cannot be able to type and the time was already finsihed.

For example I am the instructor. Then I will have a test to an encoder. I will tell him/her to encode the text written in the 1stlistbox. If I choose the 2minute, when he/she was still encoding and the time waas already finished. The timer will be stop and he cannot be able to type becazuse the time was ended.

This is a simple speed test.

Can you arrange my code. Just only the 1minute and 2minute code.

Private Sub Combo1_Change()
List2.Clear
If Combo1.ListInde x = 0 Then
List2.AddItem "Present and surrender the coupon at mercury drug stores and avail of discount of partcipating products."
Else
List2.AddItem "aicel"
End If
List2.AddItem "maricel"
End Sub

Private Sub Combo1_Click()
List2.Clear
If Combo1.ListInde x = 0 Then
List2.AddItem "Present and surrender the coupon at mercury drug stores and avail of discount of partcipating products."
Else
List2.AddItem "aicel"
End If
List2.AddItem "maricel"
End Sub

Private Sub Combo2_Click()
If Combo2.ListInde x = 1 Then
Timer1.Interval = 60000
If Combo2.ListInde x = 2 Then
Timer1.Interval = 120000
End If
End Sub

Private Sub Combo2_Click()
If Combo2.ListInde x = 0 Then
Timer1.Interval = 60000
Else
Timer1.Interval = 120000
End If
End Sub

Private Sub Timer1_Timer()
Form2.Show
End Sub

[zerok666]

what exactly are you askin? and you could program it differently with the timers.

[anuragshrivastava64]

I Can't get ur code
Why is Private Sub Combo2_Click() given twice