Link to home
Start Free TrialLog in
Avatar of Derek Brown
Derek BrownFlag for United Kingdom of Great Britain and Northern Ireland

asked on

Passing a variable from one procedure into another

I have a procedure that draws boxes in a report. The width of the boxes varies but does not effect the rest of the boxes. So I want to write:

Private sub Boxes
Dim W as integer
W = 5  'Draw boxes 5 Wide
DrawBoxes
Me.PSet (300,0)  'Move over a bit then draw some more boxes, but this time 8 wide
W = 8
DrawBoxes
End Sub

Private sub DrawBoxes ()
Me.Line  (0, 0) - Step (BoxHeight , W) ,0 ,B
end sub
ASKER CERTIFIED SOLUTION
Avatar of Barry Cunney
Barry Cunney
Flag of Ireland image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Derek Brown

ASKER

Thank you