vb滚动条怎么显示进度

vb滚动条如何显示进度
各位老大，这又有问题了，郁闷好几天了。vb自带的滚动条没有显示当前进度文字的功能，想实现此功能，试过用文本框，但背景色及滚动效果不好控制，用标签又无法设置透明及无法移到顶层（即不能在滚动条的上方），请教各位，有什么办法实现此功能吗，如果能用API函数也行呀。只知道用SendMessage函数可以设置前、背色，但不知如何设置显示文字，请赐教。谢谢！！！

[解决办法]
给你一个用Picture做进度条的例子：

VB code

Private Sub Form_Load()Label1.BackStyle = 0Label1.BorderStyle = 0Label1.ForeColor = vbWhiteLabel1.BackColor = Picture1.BackColorTimer1.Interval = 100Picture1.DrawWidth = 10End SubPrivate Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)Private Sub Timer1_Timer()Static i As IntegerPicture1.AutoRedraw = TruePicture1.Scale (0, 0)-(100, 10)Picture1.Line (i, 0)-(i, 10), vbBluei = i + 1If i > 99 Then Timer1.Enabled = FalseLabel1.Caption = i & "%"End Sub
[解决办法]
探讨

我记得枕善居上有第三方控件可下载。