Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_SYNC = &H0
Private Const SND_NODEFAULT = &H2
Private Const SND_MEMORY = &H4
Dim Sonido1() As Byte

Private Sub Command1_Click()
Call sndPlaySound(Sonido1(0), SND_SYNC Or SND_MEMORY)
End Sub

Private Sub Form_Load()
Sonido1 = LoadResData(101, "CUSTOM")
End Sub