[求助]两句代码有问题
这是一个ＭＰ３播放器．其中有两句代码有错
，我已经标出，希望得到指点！


Private Sub CmdExit_Click(Index As Integer)
End
End Sub

Private Sub CmdOpen_Click(Index As Integer)
Dim stFileName As String
CdlGetFile.Filter = "MP3 Files|*.mp3"
CdlGetFile.Flags = cdlOFNHideReadOnly '打开文件属性
CdlGetFile.InitDir = "E:\娱乐地带\流行音乐\" '打开文件初始目录
CdlGetFile.ShowOpen
stFileName = CdlGetFile.FileName
Player.Open stFileName
End Sub

Private Sub CmdPlay_Click(Index As Integer)
Player.play
End Sub

Private Sub CmdStop_Click(Index As Integer)
Player.Close
End Sub
虽然有这个贴，但是没看到解决方法

请教。谢谢