VB抽簽程序問題，急求大神。如何設置當點擊開始按鈕後開始抽簽，點擊停止後抽簽停止，並且抽簽的是65

Timer1.Interval?=?100

Timer1.Enabled?=?True

End?Sub

Private?Sub?Command2_Click()?'點結束

Timer1.Enabled?=?False

End?Sub

Private?Sub?Timer1_Timer()?'抽簽過程

Dim?m()

Randomize

m?=?Array("張三",?"李四",?"阿貓",?"阿狗",?"這裏放上全部65個名字……")

Label1.Caption?=?m(Int(Rnd?*?(UBound(m)?+?1)))

End?Sub 上述程序用到四個控件：Command1、Command2、Label1、Timer1