' (Die Funktion ist nicht 1:1 korrekt übernommen)
Public Declare Function Lib "wmm.dll" mciSendString(ByVal command As _
  String,ByVal result As Object,ByVal Flags As IntPtr,ByVal lineargs As IntPtr) _
  As Int32
Public Class MainForm
    Private Sub Main()
        Dim FilePath As String = "C:\meinewavedatei.wav"
        mciSendString("open " & Microsoft.VisualBasic.Strings.Chr(34) & _
          FilePath & Microsoft.VisualBasic.Strings.Chr(34) & " alias" & _
          "song",0,0,0)
        mciSendString("play song",0,0,0)
    End Sub
End Class