Vb程序问题，找不到入口点~高手来

程序代码内容：

Private Declare Function sndplaysound Lib "winmm.dll" Alias "sndplaysoundA" (ipszsoundname As Any, ByVal uflags As Long) As Long
Const snd_async = &H1
Const snd_nodefault = &H2
Const snd_memory = &H4
Dim mybuffer() As Byte
Sub playsound(ByVal soundld As Integer)
mybuffer = LoadResData(soundld, "custom")
sndplaysound mybuffer(0), snd_async Or snd_nodefault Or snd_memory
End Sub
Sub endsound()
sndplaysound ByVal vbNullString, 0&
End Sub
Private Sub command1_click()
playsound (101)
End Sub
Private Sub command2_click()
endsound
End Sub
提示找不到入口点：sndplaysoundA in winmm.dll如何解决！

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

这样才对

注意 ：大小写
API函数可不是vb函数
建议用到API函数时用API浏览器获得