具有音量调节功能
可以一次添加多个文件(在打开窗口按"shift"+鼠标左键 或"ctrl"+鼠标左键进行操作即可)
播放暂停时仍然显示播放时间和播放位置并且可以拖动
关闭时自动保存播放列表,并且覆盖上次保存过的列表
打开时自动加载列表并播放文件
支持循环播放

目前还有许多问题需要解决:
不能一次删除多项
不能显示歌词
在多个播放项目下不能进行随机播放和单曲播放
不能读取m3u播放列表
界面不够漂亮
更多问题有待发现,请提出宝贵意见

如果稍微有所改进,请把源文件传上来以便学习,谢谢!!

一次删除多项解决方案如下:
将list2的multiselected属性设置为2
Private Sub CmdClear_Click()
Dim r As Integer
Dim x As Variant
Dim T As String, zz As String
Set Title = New Collection
For r = 0 To List2.ListCount - 1
If List2.Selected(r) = False Then
Title.Add List1.List(r)
End If
Next r
List1.Clear
List2.Clear
For Each x In Title
List1.AddItem x
For r = 1 To Len(x) - 4
T = Mid(x, r, 1)
If T = "\" Then
zz = ""
T = ""
End If
zz = zz & T
Next r
List2.AddItem zz
Next x
Set Title = Nothing
End Sub
将上面的代码放到源代码中

不好意思丢了一句：
Private Title as Collection