DOCUMENT:Q190179  07-AUG-1998  [vbwin]
TITLE   :HOWTO: Change ProgressBar Orientation at Run-Time
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:WINDOWS:6.0
OPER/SYS:WINDOWS
KEYWORDS:

======================================================================
---------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual Basic Learning, Professional, and Enterprise Editions
   for Windows, version 6.0
---------------------------------------------------------------------

SUMMARY
=======

When changing the Orientation property of a ProgressBar, the bar changes
position on the form. If this Orientation is changed at run-time, it could
overlap other controls or be displayed off the visible portion of the form.
This article describes how to change the Orientation and keep the control
in the same position.

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

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

Additional query words: kbControl kbVBp kbdsd kbDSupport kbVBp600
======================================================================
Version           : WINDOWS:6.0
Platform          : WINDOWS
Issue type        : kbhowto

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1998.