16,554
社区成员
发帖
与我相关
我的任务
分享
Public Class BaseProgressBar
Inherits ProgressBar
Const PBS_VERTICAL = 4
Private Overloads ReadOnly Property CreateParams()
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.Style = PBS_VERTICAL
Return cp
End Get
End Property
End Class