Necesito hacer un piano en visual

necesito hacer un piano en visual y no me suena en tiempo real de demora medio segundo en arrancar el sonido y pierde elefecto de piano.

estoy usando esto:

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1 ' reproducción asíncrona
Private Sub Command1_Click()
snd = sndPlaySound(App.Path & "D:\loop1.wav", SND_ASYNC)
End Sub

pero nada el sonido arrranca medio segundo después

ayuden me [email protected]