[求助]两句代码有问题
											这是一个MP3播放器.其中有两句代码有错
,我已经标出,希望得到指点!
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



											
	    

	
