Probleme mit MCISENDSTRING unter VB.NET 2010

Imports System.IO

Public Class Form1

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

Public Declare Function GetShortPathName Lib "kernel32" _

Alias "GetShortPathNameA" ( _

ByVal lpszLongPath As String, _

ByVal lpszShortPath As String, _

ByVal cchBuffer As Integer) As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

mciSendString("open " & TextBox1.Text & " alias TempMCI", Nothing, 0, 0)

mciSendString("play TempMCI", Nothing, 0, 0)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

mciSendString("stop TempMCI", 0, 0, 0)

mciSendString("close TempMCI", 0, 0, 0)

End Sub

End Class

habe folgenden Quelltext geschrieben um eine MP 3-Datei abspielen zu können, aber es funktioniert nicht und ich findet einfach den Fehler nicht habt dir vielleicht eine Idee wo der Fehler liegen könnte.

Danke für eure Hilfe