DimaAsIntegerPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubForm_Click()ClsTimer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Line(1000,1000)-(2500,2500),QBColor(Int(Rnd*16)),BFEndSub