【求助】VB.net 2005中 关于 AxWindowsMediaPlayer控件的问题

我想用AxWindowsMediaPlayer.currentMedia.duration来获取目标文件播放长度，发现返回值总是0

下面是代码
       
        Dim i As Double

        AxWindowsMediaPlayer1.URL = "C:\TDDOWNLOAD\1636455222562.wav"      ’AxWindowsMediaPlayer1是WMPLib.AxWindowsMediaPlayer型数据

         AxWindowsMediaPlayer1.Ctlcontrols.play()

        i = AxWindowsMediaPlayer1.currentMedia.duration

听人说是由于读入延迟问题造成，我加了下面的一个循环还是不行，duration值总是0

     Dim j As Long
     While True
            j = j + 1
            If AxWindowsMediaPlayer1.currentMedia.duration > 0 Then
                i = AxWindowsMediaPlayer1.currentMedia.duration
                Exit While
            End If
　　　End While

谁能帮帮忙啊？跪谢了！新手第一次发帖，没法给分，实在抱歉了

下面是调试画面，我的Windows Media Player 版本是9.0

--------------------编程问答-------------------- 加一个判断playstate状态的

补充：VB ,  多媒体