Programación VB Quiero agregar otro programa a un programa original y agregar música de fondo, gracias

Función de declaración privada mciSendString Lib "winmm.dll" Alias ​​​​"mciSendStringA" (ByVal lpstrCommand como cadena, ByVal lpstrReturnString como cadena, ByVal uReturnLength como larga, ByVal hwndCallback como larga) mientras

Private Sub Form_Load()

Dim mName As String

mName = App.Path & "\test.mid"

ReturnVal = mciSendString(" PLAY " & App.Path & "\test.mid", 0&, 0, 0&) 'Música de fondo

Shell App.Path & "\test.exe", vbNormalFocus 'Programa de llamada

Fin del subtítulo