' *********************************************************
' EJEMPLO DEL USO DE aRC_XM.DLL v.2.2
' *********************************************************
'
'   * Requiere aRC_XM.dll v.2.2
'       CopyLeft (c) 2004 aRC - aDVANCED rESEARCH cOMMUNITY
'   * Solamente lee módulos Fastracker II (.XM)
'   * Código: Furious Logic [aRC] - División DemoScene
'   * Pista musical: "Ida's hashkaka" por dubmood [Razor1911]
'   * Basado en MiniMod.h Copyright Firelight Multimedia, 1999-2001.
'   * Soporte solo para módulos Fastracker II (.XM)
'   * Utilícese libremente bajo su propia responsabilidad
'
' ********************************************************* }

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
 
sub main()
dim res as long
ruta="c:\musica\bla\bla\bla\...\music.mp3" '<-- indica la ruta COMPLETA del archivo mutimedia en tu caso el archivo xm
res=mciSendString("play " & Ruta, 0, 0, 0)
end sub