发布网友
共1个回答
热心网友
重绘,四个方向都可以。
又或者先继承,代码
Public Class progro
Inherits ProgressBar
Protected Overrides ReadOnly Property CreateParams As CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.Style = cp.Style Or &H4 '从下而上。
Return cp
End Get
End Property
End Class