vb 延时api函数导致cpu占用率100%,该怎么解决

vb 延时api函数导致cpu占用率100%

我是一个学vb的新手,程序如下:
private   sub   TimeGetTime   Lib "winmm.dll "()   AS   Long


private   sub   savetime(n)
dim   savetime#
while   TimeGetTime <savetime+n
DoEvents
wend

Private   Sub   showtime()
time.Caption   =   player.Controls.currentPositionString
time1.Caption   =   player.currentMedia.durationString
Call   savetime(1000)
Call   showtime
End   Sub

Private   Sub   Form_Load()
call   showtime
End   Sub
这个过程是用来显示window   media   player播放器控件时间的,运行此程序时会导致cpu占用100%
此外,当打开一个音乐文件后,再关闭程序的时候会出现错误:

"未设置对象变量或with   block变量 "

调试出错的是这一句:

time1.Caption   =   player.currentMedia.durationString  

我真不明白,请高手指点,如何解决cpu   100%   如何修改上面的错误
万分感谢

[解决办法]
private sub savetime(n)
dim savetime_ as single
savetime_ = timer
while Timer < savetime_+n
DoEvents
wend
end sub

控件也许是已经退出播放状态了，再调用就有问题了。
time1.Caption = player.currentMedia.durationString



————————————————————————————————————
写作，虽然每个人都会查阅辞海，可，不是人人都能写出不朽的篇章的。编程，如是也。