下边这段代码中select case 与case之间老报错，谢谢大家，帮我分析一下

[Raleighchiu]

我是一位VB初学者，烦请各位大侠，帮忙分析一下，下面代码，我在学做一个VCD播放软件，但下边这段代码中select case 与case之间老报错，谢谢大家
Private Sub Form_Unload(Cancel As Integer)
MMControl.Command = "stop"
MMControl.Command = "close"
End Sub

Private Sub MMControl_StatusUpdate()
Select Case CommonDialog.FilterIndex
Case 1
StatusBar.SimpleText = "当前帧数" & MMControl.Position
Slider.Value = MMControl.Position
Case 2
StatusBar.SimpleText = "声音长度" & MMControl.Position
Slider.Value = MMControl.Position
Case 3
StatusBar.SimpleText = "当前帧数" & MMControl.Position
Slider.Value = MMControl.Position
Case 4
StatusBar.SimpleText = "MIDI长度" & MMControl.Position
Slider.Value = MMControl.Position
End Select
If MMControl.Position = MMControl.Length Then
MMControl.Command = "prev"
If mnurepeat.Checked = True Then
MMControl.Command = "play"
ElseIf mnurepeat.Checked = False Then
MMControl.Command = "stop"
End If
End If
End Sub


Private Sub mnuexit_Click()
Unload frmvcd
End Sub

Private Sub mnurun_Click()
MMControl.Command = "play"
End Sub

Private Sub munopen_Click()
Dim temp As Integer
Dim stringtext As String
Dim midx, midy As Double
CommonDialog.FileName = ""
CommonDialog.Filter = "(*.avi)|*.avi|(*.wave)|*.wave|(vcd *.vcd)|*.dat|(midi *.mid)|*.mid"
CommonDialog.FilterIndex = 1
CommonDialog.DialogTitle = "打开媒体文件"
CommonDialog.Action = 1
MMControl.Command = "close"
If CommonDialog.FileName = "" Then
temp = MsgBox("没有文件被选择", 37, "检查")
ElseIf CommonDialog.FilterIndex = 1 Then
MMControl.DeviceType = "avivideo"
MMControl.TimeFormat = 3
MMControl.FileName = CommonDialog.FileName
MMControl.Command = "open"
Slider.Min = 0
Slider.Max = MMControl.Length
ElseIf CommonDialog.FilterIndex = 2 Then
MMControl.DeviceType = "waveaudio"
MMControl.TimeFormat = 1
MMControl.FileName = CommonDialog.FileName
MMControl.Command = "open"
Slider.Min = 0
Slider.Max = MMControl.Length
ElseIf CommonDialog.FilterIndex = 3 Then
MMControl.DeviceType = "mpegvideo"
MMControl.TimeFormat = 3
MMControl.FileName = CommonDialog.FileName
MMControl.Command = "open"
Slider.Min = 0
Slider.Max = MMControl.Length
ElseIf CommonDialog.FilterIndex = 4 Then
MMControl.DeviceType = "sequencer"
MMControl.TimeFormat = 1
MMControl.FileName = CommonDialog.FileName
MMControl.Command = "open"
Slider.Min = 0
Slider.Max = MMControl.Length
End If
End Sub

Private Sub Slider_Scroll()
MMControl.To = Slider.Value
MMControl.Command = "seek"
MMControl.Command = "play"
End Sub

[Dublue]

跟踪一下，那一行报错？
太长了，又没缩进，懒得看

[Raleighchiu]

主要是当我打开媒体文件时，例如：打开VCD *.DAT属性文件后VB就提示实时错误'424':要求对象 我调试，VB提示在StatusBar.SimpleText = "当前帧数" & MMControl.Position出错，但我实在不明白错在哪里，我该如何纠正呀，麻烦各位大侠，给小生指点，指点，再次谢谢了！

[AMinfo]

你先把出错的这行前面加一个'然后继续调试，如果正常的话，那你就把这话重新写过一遍看看行不

[Jackile]

那一行出错，就把它注释掉，最后，再一个个恢复，你就知道错在那了！

[lxcc]

主要是当我打开媒体文件时，例如：打开VCD *.DAT属性文件后VB就提示实时错误'424':要求对象 我调试，VB提示在StatusBar.SimpleText = "当前帧数" & MMControl.Position出错

MMControl这个控件加载了吗