如果播放声音？
帮助这样写：
Private Sub Form_Load ()
' Set properties needed by MCI to open.
MMControl1.Notify = FALSE
MMControl1.Wait = TRUE
MMControl1.Shareable = FALSE
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = "C:\WINDOWS\MMDATA\GONG.WAV"

'打开 MCI WaveAudio 设备。
MMControl1.Command = "Open"
End Sub
可是放不出声音来？这空件可以播放MP3 MID等其他格式的声音么？

對這個沒有研究```妳還是用下MCISENDSTRING這個API試試```

这样不会耶 能不能写一段简单代码？ 比如我按下 Command1 就会播放 D：\XX.MP3

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim Res As Integer, Ret As String * 1024

Private Sub Form_Load()
Dim A as Integer, path As String, APPPATH As String
'获得当前路径8.3格式的短路径名
If Right(App.path, 1) = "\" Then path = App.path Else path = App.path & "\"
APPPATH = String$(165, 0)
A = GetShortPathName(path, APPPATH, 164)
APPPATH = Left(APPPATH, InStr(APPPATH, Chr(0)) - 1)
End Sub
Private Sub Form_Click()
Dim Res As Integer, Ret As String * 1024
Res = mciSendString("play " & APPPATH & "伱的音樂.wav from 3000 to 8000", Ret, 1024, 0)
'Res = mciSendString("play " & APPPATH & "伱的音樂.wav", Ret, 1024, 0)'整首播放
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Res = mciSendString("close all", Ret, 1024, 0)
End
End Sub

MCI控件基本上支持所有常规声音文件
你把控件画出来的时候不是有几个按钮吗?你要点那个播放按钮它才会播放声音.实在不行的话你就用WMP