vb程序点击command出现矩形变色 DimaAsIntegerPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubForm_Click()ClsTimer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Line(1000,1