Rectangles
Feb 16, 2006I have created 100 rectangles names Box100, Box101, ... Box200.
I want to make them all invisible on the Form Open event.
How do I reference them in a loop so that they all become invisible.
I have created 100 rectangles names Box100, Box101, ... Box200.
I want to make them all invisible on the Form Open event.
How do I reference them in a loop so that they all become invisible.
I am trying to make something like custom bar chart on a form using rectangles. I made 4 rectangles (BarBZ, BarBA, BarKI and BarMA) and have the following code:
Code:
Dim PctBZ As Double
Dim PctBA As Double
Dim PctKI As Double
Dim PctMA As Double
PctBZ = Me.BZ / (Me.BZ + Me.BA + Me.KI + Me.MA)
[Code] ....
It works perfectly except... the rectangles grow/shrink downwards and not upwards. As a result the bars are aligned to top, while I would like to have them aligned to bottom.