【求助】播放器的上一曲按钮 代码

帮我看下 这个播放器的上一曲代码
Private Sub Command8_Click()   
If List1.ListIndex < List1.ListCount - 1 Then      
i = List1.ListIndex - 1      
List1.Selected(i + 1) = False      
List1.Selected(i) = True      
WindowsMediaPlayer1.URL = List1.List(i)      
WindowsMediaPlayer1.Controls.play   
End If
End Sub  
上一曲实现不了 谁能帮我改下