[求助]：请高手帮忙

lijiao

2. 
   
3.   [FONT=courier new]
   
4. Public Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal _
   
5. Resolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, _
   
6. ByVal uFlags As Long) As Long
   
7. Public Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long
   
8. Public ID As Long
   
9. 
   
10. Public Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, _
    
11. ByVal dw1 As Long, ByVal dw2 As Long)
    
12. 
    
13. ThisDrawing.Utility.Prompt vbCrLf & "My MSG"
    
14. End Sub
    
15. 
    
16. Public Sub StartTimerProc()
    
17. ID = timeSetEvent(1000, 0, AddressOf TimeProc, 1, 1)
    
18. End Sub
    
19. 
    
20. Public Sub EndTimerProc()
    
21. 
    
22. timeKillEvent ID
    
23. 
    
24. End Sub
    
25.   [/FONT]
    

<br />   [FONT=courier new]<br /> Public Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal _<br /> Resolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, _<br /> ByVal uFlags As Long) As Long<br /> Public Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long<br /> Public ID As Long<br /> <br /> Public Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, _<br /> ByVal dw1 As Long, ByVal dw2 As Long)<br /> <br /> ThisDrawing.Utility.Prompt vbCrLf & "My MSG"<br /> End Sub<br /> <br /> Public Sub StartTimerProc()<br /> ID = timeSetEvent(1000, 0, AddressOf TimeProc, 1, 1)<br /> End Sub<br /> <br /> Public Sub EndTimerProc()<br /> <br /> timeKillEvent ID<br /> <br /> End Sub<br />   [/FONT]<br />

上面是一段VBA代码，可是，运行StartTimerProc后，CAD命令行没有任何反应，如果将ThisDrawing.Utility.Prompt vbCrLf & "My MSG"
改为Debug.print "My MSG"，在立即窗口中有输出。
另外，运行后，CAD系统不稳定，经常出现崩溃。
请高手帮解释一下。