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

'controls.currentPosition:double; 当前进度 'controls.currentPositionString:string; 当前进度，字符串格式。如“00:23” 'controls.fastForward; 快进 'controls.fastReverse; 快退 'controls.next; 下一曲 'controls.previous; 上一曲 '[settings] wmp.set