Нужен вертикальный индикатор прогресса - Visual Basic .NET

Формулировка задачи:

Доброго времени суток! Есть элемент полоса загрузки, действует только по горизонтали, так вот есть ли возможность смоделировать вертикальную полосу загрузки переписав код полосы загрузки?

Решение задачи: «Нужен вертикальный индикатор прогресса»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Class Form1
    Const PBS_VERTICAL = &H4
    Dim pr As New VertProgressbar With {.Width = 20, .Height = 100}
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pr.Value += 1
    End Sub
 
    Public Class VertProgressbar
        Inherits ProgressBar
        Protected Overrides ReadOnly Property CreateParams() As CreateParams
            Get
                Dim cp As CreateParams = MyBase.CreateParams
                cp.Style = cp.Style Or PBS_VERTICAL
                Return cp
            End Get
        End Property
    End Class
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Controls.Add(pr)
    End Sub
End Class