Прогресс при воспроизведении

Func _WMP_SoundPlay($fil1)

    $oWMP = ObjCreate("WMPlayer.OCX.7")
    $oWMP.Url = $fil1
    $oWMP.Settings.Volume = 100
    $oWMP.Controls.Play

    Do
    Until $oWMP.PlayState = 1
	Return
EndFunc