module1.bas

很棒 考虑很周全 适合大家学习 页面很漂亮 可以作为良师益友 谢谢大家支持

Attribute VB_Name = "Module1"

Option Explicit

'发声
Public Declare Function sndPlaySound Lib "WINMM.DLL" Alias _
                          "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As _
                          Long) As Long
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
'发声