Simonevblistbox选中下一个错误
的有关信息介绍如下：
不能这样写，应该这样
if list1.tag="no" then exit sub
If Not (List1.ListIndex = List1.ListCount - 1) Then
List1.ListIndex = List1.ListIndex + 1
List1.Tag="no"
WindowsMediaPlayer1.URL = App.Path & "\Up sky\" & List1.List(List1.ListIndex+1)
Else
WindowsMediaPlayer1.URL = ""
WindowsMediaPlayer1.Close
End If
list1.tag=""
