How To Change ProgressBar Orientation at Run-Time

MORE INFORMATION

Step-by-Step Example

1. Start a new Visual Basic project. Form1 is created by default.
2. Select Components from the Project menu. Check "Microsoft Windows Common Controls 6.0" and click OK.
3. Add a Progress Bar, ProgessBar1, to Form1.
4. Add a CommandButton, Command1, to Form1.
5. Add the following code to Form1's code window:

         Private Sub Command1_Click()
            Dim iWidth As Integer
            Dim iHeight As Integer
            Dim iLeft As Integer
            Dim iTop As Integer
   
            ' Store the current position
            iWidth = ProgressBar1.Width
            iHeight = ProgressBar1.Height
            iLeft = ProgressBar1.Left
            iTop = ProgressBar1.Top
   
            ' This only works with Smooth Scrolling
            ProgressBar1.Scrolling = ccScrollingSmooth
   
            ' Change the Orientation to the opposite
            If ProgressBar1.Orientation = ccOrientationVertical Then
                ProgressBar1.Orientation = ccOrientationHorizontal
            Else
                ProgressBar1.Orientation = ccOrientationVertical
            End If
   
            ' Reset the new position with the old position
            ProgressBar1.Width = iWidth
            ProgressBar1.Height = iHeight
            ProgressBar1.Left = iLeft
            ProgressBar1.Top = iTop
   
            DoEvents
            Form1.Refresh
            ProgressBar1.Value = 0
            ProgressBar1.Max = 1000
            For i = 1 To 1000
                ProgressBar1.Value = i
            Next i
         End Sub
   
   						

6. Run the Project and click Command1 multiple times to see vertical and horizontal scrolling.