播放器的进度条怎么制作呢

播放器的进度条如何制作呢?
想问一下播放器的进度条如何制作? 我的项目中 引入 windows media player控件 因为特殊需求 WMP的控制台被隐藏掉 所以没有播放进度条,我现在的目的是想做一个播放器的进度条 实现这个用什么控件呢? 怎么实现 求思路,谢谢。

------解决方案--------------------

VB code
Private Sub Form_Load()
    HScroll1.Min = 0
    HScroll1.Max = 100
    
End Sub

Private Sub HScroll1_Change()
    Text1.Text = HScroll1.Value
    
End Sub

------解决方案--------------------
a)HScroll 为 VB 自带控件,安装完整版
b)用 Microsoft Windows Common Controls 6.0 (SP6) 中的 Slider 控件