private sub MMcontro11_StarusUpdate()
'当状态发生变化的时候调用,在播放时调用
on error goto erropen
'如果有错误跳转至ERROPEN
MMContro11.timeformat=0
'设置文件长度以毫秒形式返回
slider1.max=MMContro11.length/1000
'将播放该文件所需时间作为划动条的最大限度
if MMContro11.position<>MMContro11.position/1000
'当还未播放完毕时
Slider1.value=MMContro11.position/1000
'让滑动条滑竿随播放时间变化滑动
………………………………
private sub MMcontro11_done(notifyCode as integer)
MMcontro11.updateinterval=100
'间隔100毫秒
end if