求高手指点！VB如何操作windowsmediaplayer播放列表？

'controls.currentPosition:double; 当前进度
'controls.currentPositionString:string; 当前进度，字符串格式。如“00:23”
'controls.fastForward; 快进
'controls.fastReverse; 快退
'controls.next; 下一曲
'controls.previous; 上一曲
'[settings] wmp.settings //播放器基本设置
'settings.volume:integer; 音量，0-100
'settings.autoStart:Boolean; 是否自动播放
'settings.mute:Boolean; 是否静音
'settings.playCount:integer; 播放次数
' [currentMedia] wmp.currentMedia //当前媒体属性
'currentMedia.duration:double; 媒体总长度
'currentMedia.durationString:string; 媒体总长度，字符串格式。如“03:24”
'currentMedia.getItemInfo(const string); 获取当前媒体信息"Title"=媒体标题，"Author"=艺术家，"Copyright"=版权信息，"Description"=媒体内容描述，"Duration"=持续时间（秒），"FileSize"=文件大小，"FileType"=文件类型，"sourceURL"=原始地址
'currentMedia.setItemInfo(const string); 通过属性名设置媒体信息
'currentMedia.name:string; 同 currentMedia.getItemInfo("Title")
' [currentPlaylist] wmp.currentPlaylist //当前播放列表属性
'currentPlaylist.count:integer; 当前播放列表所包含媒体数
'currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息，其子属性同wmp.currentMedia

先加载WMP控件，然后看上面的属性吧。