在VB（Visual Basic）中添加声音可以通过多种方法实现，以下是一些常见的方法：
使用 `PlaySound` 函数
`PlaySound` 函数可以播放指定的音频文件或音频数据。
示例代码：
```vb
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hMod As Long, ByVal dwFlags As Long) As Boolean
Private Sub Command1_Click()
Dim soundFile As String
soundFile = "C:\Users\Administrator\Desktop\送别.wav"
If PlaySound(soundFile, 0, 0) Then
MsgBox "声音播放成功！"
Else
MsgBox "声音播放失败！"
End If
End Sub
```
使用 `Windows Media Player` 控件
可以通过添加 `Windows Media Player` 控件来播放音频文件。
示例代码：
```vb
Option Explicit
Private Sub Form_Load()
Dim mediaPlayer As Object
Set mediaPlayer = CreateObject("WMPLib.WindowsMediaPlayer")
mediaPlayer.URL = "E:\mp3\we.mp3"
mediaPlayer.controls.play()
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Not mediaPlayer Is Nothing Then
mediaPlayer.controls.stop()
Set mediaPlayer = Nothing
End If
End Sub
```
使用 `MMControl` 控件
`MMControl` 控件可以用于播放多种格式的音频文件，包括MP3、WAV等。
示例代码：
```vb
Option Explicit
Private Sub Form_Load()
Dim mmControl As Object
Set mmControl = CreateObject("MMControl.MMControl")
mmControl.FileName = App.Path & "\*.mp3"
mmControl.Command = "Open"
mmControl.Command = "Play"
End Sub
```
使用 `sndPlaySoundFromMemory` 函数
如果音频数据已经加载到内存中，可以使用 `sndPlaySoundFromMemory` 函数进行播放。
示例代码：
```vb
Option Explicit
Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
Dim barr() As Byte
barr = LoadResData(101, "custom") ' 加载文本文件
Dim s As String
For Each k In barr
s = s + Chr(k)
Next
MsgBox s
barr = LoadResData(102, "custom") ' 加载WAV声音文件
sndPlaySoundFromMemory barr, 0
End Sub
```
使用 `Beep` 方法
`Beep` 方法可以发出简单的声音，通常用于提示或简单的音效。
示例代码：
```vb
Option Explicit
Private Sub Command1_Click()
Beep 500, 600 ' 500表示频率，单位为Hz；600表示持续时间，单位为毫秒
End Sub
```
根据你的具体需求，可以选择适合的方法来在VB中添加声音。如果需要更复杂的音频处理，可以考虑使用第三方库或组件，如 `Microsoft.DirectX.AudioVideoPlayback`。
