vb中滚动条如何变色

'还原 超级连接 标签
Private Sub FrCeb_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Index = 1 Then
If Val(lbls(0).Tag) = 1 Then
lbls(0).Tag = 0: Call lbls_cls(0)
ElseIf Val(lbls(1).Tag) = 1 Then
lbls(1).Tag = 0: Call lbls_cls(1)
End If
End If
End Sub

Private Sub lbls_Click(Index As Integer) '超级连接标签
Dim Url As String
If Index = 0 Then ' 如果是 申请号码 标签
Url = "http://www.luobo528.com/"
Else ' 如果是 忘记密码 标签
Url = "http://bbs.luobo528.com/"
End If
'打开连接
Call ShellExecute(Me.Hwnd, "Open", Url, "", App.Path, 1)
'将标签还原
Call lbls_cls(Index)
End Sub
'模仿超级连接的样式
Private Sub lbls_MouseMove(Index As