如何在自己的VB程序中添加背景音乐？

不用ActiveX控件也能播放声音文件
讲一下代码保存至module
Option Explicit

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

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10

接下来把下面的代码粘贴到你想播放声音文件的地方，比如放在命令按钮的Click事件中

Dim sFlags As Long

sFlags = SND_ASYNC Or SND_NODEFAULT

sndPlaySound "FileName.Wav", sFlags

把上面的FileName.Wav换成你想要播放的声音文件的完整路径及文件名就行了。

如果你仅仅是想播放一些Windows常用的声音，比如说退出Windows的声音，有一种更简单的写法

sndPlaySound "SystemExit",sFlags

将SystemExit换成下面这些参数，试试是什么声音？

SystemStart
SystemExit
SystemDefault
SystemQuestion
SystemAsterisk
SystemExclamation
SystemHand

下面是sFlags所用参数的说明：

参数 说明
SND_SYN