vb6 activate deactivate事件问题

[zjraycj]

dim i as integer
Private Sub Command1_Click()
Print i
End Sub

Private Sub Form_Activate()
MsgBox "hello"
i = i + 1
'Form1.BackColor = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())
End Sub

Private Sub Form_Deactivate()
MsgBox "bye-bye"
Form1.BackColor = RGB(255* Rnd(), 255 * Rnd(), 255 * Rnd())
End Sub

根据教材上说明，activate deactivate应该在窗口每次切换都后会执行，为何我测试时activate就第一次执行后，后面都不执行，而deactivate就根据一次也不执行？
请高手解答一下谢谢

[zjraycj]

有高手指点一下哪里的问题吗

[vrgame]

MSDN说：
Activate 和 Deactivate 事件仅当驻点在一个应用程式内移动时才发生。在另一个应用程式中将驻点移向或移离一个物件时，不会触发任何一个事件。当一个物件释放时，不会发生 Deactivate 事件。

制作一 Project，
内置"Form1"与"Form2"，

里头都加上:
Private Sub Form_Activate()
Debug.Print "Activate1_Form1" '或"Form2"
End Sub

Private Sub Form_Deactivate()
Debug.Print "Deactivate_Form1" '或"Form2"
End Sub

启动Form1与Form2，
来回切换点击，
就能在DebugWindow里看到回应了。

[zjraycj]

知道 了，我刚才也想到了，呵。不能是不同程序间的，只能是同一程序内的不同窗口切换才能发生这两个事件