Zooming Function in VBA

[davidgottlieb]

Is there a way that I can create 2 buttons that will will zoom in on my form. I am using a user form in VBA and about 8,000 people will be using it. Not everyone's screen resolution is the same so I need to create some zoom buttons so they can fit it to their liking. So can I create two buttons: one that will zoom in at increments of 5. and one that will zoom out in increments of 5? What is the code for that. Thank you for your help.

Is this David Gottlieb in Cleveland?

Maybe use a routine like

Dim c as control
For each c in myForm.controls
  c.height = c.height * 0.95              '5% smaller
  c.width = c.width * 0.95
Next c

But then you have to move all controls 5% closer to each other as well... Maybe working with reference to 0,0?




[Edited by RoyceWindsor1 on 09-07-2000 at 11:12 AM]