Vertically filled rectangle filling downwards 2

[vamoose]

Hello, I am having trouble with Access 2003 creating a filled rectangle. I am using the VBA code to vertically fill a rectangle for a visual display of liquid within a tank.

Me.RectProgressBarRaw.Height = 2500: Me.Repaint

The rectangle is filling fine but in a downward direction. I would like this to fill in an upward direction, how is this possible please.

Thank you.

 

[vamoose]

I forgot to mention the low level is 0 and the high level is 9000.

 

[PWise]

you also have to move the top up try
Me.RectProgressBarRaw = me.height 'bottem of form
Me.RectProgressBarRaw.Height = 0
Me.Repaint


Me.RectProgressBarRaw = me.height-20 'bottem of form
Me.RectProgressBarRaw.Height = 20
Me.Repaint
Me.RectProgressBarRaw = me.height-20-20 'bottem of form
Me.RectProgressBarRaw.Height = 20+20
Me.Repaint

 

[PWise]

Sorry s/b

Me.RectProgressBarRaw .Height = Me.RectProgressBarRaw .Height + 20
Me.RectProgressBarRaw .Top = Me.RectProgressBarRaw .Top - 20
Me.Repaint

 

[MajP]

You may want to consider using a Microsoft ProgressBar control? You can set the orientation vertically and it works well for a display like this. Using the on current event set the value based on a field value. I use this for task progress. It is easy and works well.