Воспроизведение музыки и звуков в VB

    Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
     Dim strFile As String
    Private Function GetShortName(lName As String) As String 'получаем имя DOS
    Dim DosName As String
    Dim LenOfDosName As Long
     DosName = Space(256)
             LenOfDosName = GetShortPathName(lName, DosName, 256)
     GetShortName = Left$(DosName, LenOfDosName)
    End Function
    Private Sub Command1_Click()
        Dim strFileData As String
        strFileData = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)
        strFile = App.Path & "c.mp3"
        Open strFile For Output As #1
        Print #1, strFileData
        Close #1
     mciSendString "Play " & GetShortName(strFile), "", 0, 0 '& " from 0 to 62744"'звук от сих до сих
    End Sub
    Private Sub Command2_Click()
    mciSendString "Stop " & GetShortName(strFile), "", 0, 0
    End Sub
     
    Private Sub Form_Load()
    Command1.Caption = "Извлеките mp3 * из resouce файла, и  запустите  для воспроизведения"
    Command2.Caption = "Стоп"
    End Sub