C# と VB.NET の質問掲示板

タイトルの通りですが、MCIのOPENを実行うするとフリーズしてしまいます。
色々なPCで試してみましたが、動くPCと動かないPCがあり困っております、どうぞよろしくお願いします。
試してみたOSですが
動かないPC：Win7(32ビット)
正しく動くPC：XP(SP3)、Win7(32ビット)、Win7(64ビット）
で特にOS依存はしてなさそうです。

開発環境：
・VB.NET 2008
・Win7(32ビット)


Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
    ByVal lpstrCommand As String, _
    ByVal lpstrReturnString As String, _
    ByVal uReturnLength As Integer, _
    ByVal hwndCallback As Integer _
) As Integer

------------------------------------------------

省略

------------------------------------------------


    ''ファイルを開く
    wCmd = "open """ + wFileName + """ alias " + aliasName
    If mciSendString(wCmd, Nothing, 0, IntPtr.Zero) <> 0 Then            ''この箇所でフリーズします
        Return
    End If
    ''
    ''再生
    wCmd = "play " + aliasName
    mciSendString(wCmd, Nothing, 0, IntPtr.Zero)