Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim Prog As New VerticalProgressBar
        Prog.Value = 50
        Me.Controls.Add(Prog)
    End Sub