nz.bas

visualbasic学习材料及开发源代码

Attribute VB_Name = "Module1"
Option Explicit
Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszsoundname As String, ByVal uflags As Long) As Long
Global Const snd_sync = &H0
Global Const snd_async = &H1
Global Const snd_nodefault = &H2
Global Const snd_loop = &H8
Global Const snd_nostop = &H10