Visual Basic.NET サンプル集にあるサウンドの再生状態を取得するのサンプルが正しく動きませんでした。

（修正前）

'■再生状態("not ready", "paused", "playing", "stopped", ""のどれか) 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As　System.EventArgs) Handles Button3.Click



    Dim Buffer As String = New String(" "c, 255)

    Dim Mode As String



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



    Mode = Replace(Buffer, Chr(0), "")



    MsgBox(Mode)



End Sub

（修正後）

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click



    Dim Buffer As String = New String(" "c, 255)

    Dim Mode As String



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



    Mode = Replace(Buffer, " ", "")



    MsgBox(Mode)



End Sub

こんな感じにしないと、メッセージボックスいっぱいまで表示されてしまいます。