こんにちは
質問した日から2週間近くたちましたが、2点ほど気になったことがあったので質問させていただきます

（1）上の方法で試してみたところ、再生時間の取得がうまく出来なくなってしまいました。(実際よりも速くなってしまいます)
このバグを修正する方法を教えてください。
再生時間はTimerコントロールで100/1秒周期で以下のコードで取得しています

Dim Buffer As String = New String(Chr(0), 255)
    Dim Position As Double

    Call mciSendString("status MySound position", Buffer, Len(Buffer), 0)

    Position = Val(Buffer)


（2）.WMVや.WMAを早送りする方法を教えたください
http://homepage1.nifty.com/rucio/main/dotnet/Samples/SmpleCnt.htm　のコードでWMVやWMAを
再生することができますが、速度を変更するとエラーが発生します
修正方法を教えてください。
しかし、こちらはついでのようなものなので、無理なら「無理」という返答で構いません

以上の2点をお願いします