vb滚动条如何显示进度

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

---

用Picture控件代替 ProgressBar

---

给你一个用Picture做进度条的例子：
VB code:
Private Sub Form_Load()
Label1.BackStyle = 0
Label1.BorderStyle = 0
Label1.ForeColor = vbWhite
Label1.BackColor = Picture1.BackColor
Timer1.Interval = 100
Picture1.DrawWidth = 10
End Sub

Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

Private Sub Timer1_Timer()
Static i As Integer

Picture1.AutoRedraw = True
Picture1.Scale (0, 0)-(100, 10)
Picture1.Line (i, 0)-(i, 10), vbBlue
i = i + 1
If i > 99 Then Timer1.Enabled = False
Label1.Caption = i & "%"

End Sub

---

引用

给你一个用Picture做进度条的例子：
VB codePrivateSub Form_Load()
Label1.BackStyle=0
Label1.BorderStyle=0
Label1.ForeColor= vbWhite
Label1.BackColor= Picture1.BackColor
Timer1.Interval=100
Picture1.DrawWidth=10End SubPrivateSub ProgressBar1_MouseDown(ButtonAsInteger, ShiftAsInteger, xAsSingle, yAsSingl