Private Sub Command1_Click()
    a = 1
    While a < 12
        a = a + 1
        Text2.Text = a
        Text1.Text = a
        For aa = 1 To 700000
            DoEvents '注意这是第一个。
            aa = aa + 1
        Next
    Wend
    
End Sub

解决方案 »

  1.   

    1.在Change事件里写代码
    2.activate在窗体"激活"--就是标题发蓝--取得焦点的时候执行一次.
    3.看不明白你在说什么
      

  2.   

    1.用两个timer控件.
    2.是一个事件过程,在窗体被激活时运行一次,而且不会被中断.
       上面遇到的情况你因为你用了,doevents把控制权转换的原因.
      不用active,两个command的事件也可以出现上面的情况.
    3.dataarrival是什么事件?
      

  3.   

    change里怎么写?我是想知道如果不放在一段子程序里怎么使两个窗口变化??用两个doeVents为什么两段代码不是交替执行,同时变化呢?