Private Sub Mnuopen_click()
CommonDialog1 .FileName = ""
CommonDialog1 .Filter = "(*.avi)(*.avi)(*.wave)(*.wav)(vcd.*dat)(*.dat)(*.midi)(*.midi)"
CommonDialog1.filerIndex = l
CommonDialog1.DialogTitle = "打开媒体文件"
CommonDialog1.spowopen
= "close"
If Conunanddialog1.FileName = "" Then
MsgBox "投有文件被选择", 37, "检查"
Elself Commondialog1.filterIndex=1 Then
MMControl1.DeviceType = "avivideo"
MMControl1.Timefomat = 3
MMControl1.FileName = CommonDialog1.FileName
= "open"
Elself Commondialog1.filterIndex=2 then
MMControl1.DeviceType = "WaveAudio"
MMControl1.TimeFormat = 1
MMControl1.FileName = CommonDialog1.FileName
= "open"
ElseIf CommonDialog.filterlndex = 3 Then
MMControl1.DeviceType = "Mpegvideo"
MMControl1.TimeFormat = 3
MMControl1.FileName = CommonDialog.FileName
= "open"
Elself CommonDialog1.FilterIndex= 4 then
MMControl1.DeviceType = "Sequencer"
MMControl1.TimeFormat = l
MMControl1.FileName = CommonDialog1.FileName
= "open"
End If
End Sub
其中“Elself Commondialog1.filterIndex=1 Then
      Elself Commondialog1.filterIndex=2 Then
      Elself Commondialog1.filterIndex=4 Then“缺少结束语句

注意：
ElseIf Commondialog1.filterIndex=1 Then

在提示下打 exit sub 居然都錯了還要運行一下的代碼，應該不用了