Public yn As BooleanPrivate Sub Command1_Click()If yn = True Thenyn = FalseElseyn = TrueEnd IfTimer1.Interval = Val(Text1.Text)End SubPrivate Sub Form_Load()Text1.Text = 1000yn = FalseEnd SubPrivate Sub Timer1_Timer()If yn = True Then'call 需要刷新的内容End IfEnd Sub定义一个公用变量yn来记录是刷新,由command1来控...