创建一个简单的多媒体播放器。
建立程序用户界面。
在窗体上创建一个下拉式菜单，具体菜单名和标题设置如表所示
下拉菜单属性设置
名称    标题    缩进    是否可见
mnuFile    文件(&F)        是
mnuOpen    打开    ……    是
mnuClose    关闭    ……    是
mnuExit    退出    ……    是
mnuHelp    帮助(&H)        是
mnuAbout    关于    ……    是
Private Sub Form_Load()
Timer1.Interval = 100
MMControl1.hWndDisplay = 0       '规定显示输出的窗口为默认窗口
CommonDialog1.DefaultExt = "所有文件|*.*"    '为对话框设置默认的文件扩展名
CommonDialog1.Filter = "所有文件(*.*)|*.*|Windows 视频(*.avi)|*.avi|CD 音频(*.wav)|*.wav"
End Sub

Private Sub mnuAbout_Click()
MsgBox "多媒体播放器 V1.0"
End Sub

Private Sub mnuClose_Click()
= "Close"
Timer1.Enabled = False
Slider1.Value = 0
End Sub

Private Sub mnuExit_Click()
 End
End Sub

Private Sub mnuOpen_Click()
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName     '多媒体控件读取打开文件
If MMControl1.FileName = "" Then
Exit Sub
Else
    = "Open"     '打开MCI文件
    Timer1.Enabled = True
  '设置Slider控件的最大值和最小值
    Slider1.Max = MMControl1.Length
    Slider1.Min = 0
    Slider1.LargeChange = MMControl1.Length / 5
    Slider1.SmallChange = MMControl1.Length / 10
End If
End Sub

提问：程序运行后slider控件的滑块不移动，请问如何做？
      有时还显示MMControl1.Length 找不到该属性，怎么回事呢？