How to use VB to quickly scroll numbers and click the button to stop?

Dim? k? As? byte

Private? Sub? Command 1_Click()

Timer 1. Interval? =? 1

End? submarine

Private? Sub? Command2_Click()

Timer 1. Interval? =? 0

End? submarine

Private? Sub? Timer 1 _ Timer ()

Label 1。 Title? =? k

k? =? k? +? 1

What if? k? & gt? 9? then what k? =? 0

End? submarine