Private Sub Command1_Click()
Timer1.Interval = 1000
Combo1.Enabled = False
Combo2.Enabled = False
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Combo1.Enabled = True
Combo2.Enabled = True
End Sub
Private Sub Command3_Click()
Form1.Visible = False
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Combo1.List(0) = 0
Combo1.List(1) = 1
Combo1.List(2) = 2
Combo1.List(3) = 3
Combo1.List(4) = 4
Combo1.List(5) = 5
Combo1.List(6) = 6
Combo1.List(7) = 7
Combo1.List(8) = 8
Combo1.List(9) = 9
Combo1.List(10) = 10
Combo1.List(11) = 11
Combo1.List(12) = 12
Combo1.List(13) = 13
Combo1.List(14) = 14
Combo1.List(15) = 15 <
Timer1.Interval = 1000
Combo1.Enabled = False
Combo2.Enabled = False
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Combo1.Enabled = True
Combo2.Enabled = True
End Sub
Private Sub Command3_Click()
Form1.Visible = False
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Combo1.List(0) = 0
Combo1.List(1) = 1
Combo1.List(2) = 2
Combo1.List(3) = 3
Combo1.List(4) = 4
Combo1.List(5) = 5
Combo1.List(6) = 6
Combo1.List(7) = 7
Combo1.List(8) = 8
Combo1.List(9) = 9
Combo1.List(10) = 10
Combo1.List(11) = 11
Combo1.List(12) = 12
Combo1.List(13) = 13
Combo1.List(14) = 14
Combo1.List(15) = 15 <