udp.bas

用VC++编写的源码

Attribute VB_Name = "Module1"
Public Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Public Sub PlaySound(strFileName As String)
sndPlaySound strFileName, 1
End Sub