> I've noticed this happening on a few other people's PC but never
> on my own I-thought-perfectly-adjusted personal PC -- until now!
> Two text boxes in a userform that have been specified with the
> identical size and font properties nevertheless display their
> content in different fonts.

> It's not so horrible that it's illegible and of course it doesn't
> affect the operation of the form, but it looks VERY bad.

> None of the properties of these text boxes is set or changed at
> runtime.  Each is supposed to display its contents in Verdana
> 18-point bold.  Each does in fact display in 18-point characters,
> but only one is in Verdana.  (I can't even figure out what font
> the other one is using, but it's different enough to notice.)

> Has anyone else had this happen?  Did you find the cause?

> ----------- "Life is nothing if you aren't obsessed." --John Waters
> -------------------------------------------------------------------

> > I've noticed this happening on a few other people's PC but never
> > on my own I-thought-perfectly-adjusted personal PC -- until now!
> > Two text boxes in a userform that have been specified with the
> > identical size and font properties nevertheless display their
> > content in different fonts.

> > It's not so horrible that it's illegible and of course it doesn't
> > affect the operation of the form, but it looks VERY bad.

> > None of the properties of these text boxes is set or changed at
> > runtime.  Each is supposed to display its contents in Verdana
> > 18-point bold.  Each does in fact display in 18-point characters,
> > but only one is in Verdana.  (I can't even figure out what font
> > the other one is using, but it's different enough to notice.)

> > Has anyone else had this happen?  Did you find the cause?

> > ----------- "Life is nothing if you aren't obsessed." --John Waters
> > -------------------------------------------------------------------

> > I don't know the cause, but you can solve the problem by moving the
> > control up or down.

> > I've had this happen if the controls overlap each other, even
> > slightly - probably why moving them up and down helps.

> Interesting.  Thanks to you both.  In this case, no text boxes or
> labels actually overlap, but often the edges of two (or several)
> text boxes are very close to each other.  Moving them does help,
> although on this particular form there really isn't any room to
> move the boxes, so I had to make them all smaller.

> I don't suppose anyone here happens to know the (official) smallest
> permissible distance between two non-overlapping controls?

> ----------- "Life is nothing if you aren't obsessed." --John Waters
> -------------------------------------------------------------------

> Hi Mark,

> I investigated this problem a few months ago (with Dave Rado). It didn't
> have anything to do with the spacing between the controls. It will happen
> with just 1 control on the UserForm, it's just harder to notice the
> difference. The problem appears with certain combinations of the Height and
> Top properties of the Textbox. The following will demonstrate the problem.

> Create a UserForm with a TextBox close to the top of the form. Create a
> CommandButton close to the bottom of the UserForm. Set the Height of the
> TextBox to 19 and place some text in it. Paste the following code into the
> UserForm module. Watch the text in the TextBox as you repeatedly click on
> the CommandButton. Then set the Height of the TextBox to 18 and test
> again -> problem gone.

> Private Sub CommandButton1_Click()
>     TextBox1.Top = TextBox1.Top + 1
> End Sub

> If you want more details about the particular values of Top and Height that
> cause problems, I'll post them.

> --
> Hope this helps.
> ibby

> Please post replies or follow-ups to the **newsgroup** so that participants
> may benefit or contribute.

> > > I don't know the cause, but you can solve the problem by moving the
> > > control up or down.

> > > I've had this happen if the controls overlap each other, even
> > > slightly - probably why moving them up and down helps.

> > Interesting.  Thanks to you both.  In this case, no text boxes or
> > labels actually overlap, but often the edges of two (or several)
> > text boxes are very close to each other.  Moving them does help,
> > although on this particular form there really isn't any room to
> > move the boxes, so I had to make them all smaller.

> > I don't suppose anyone here happens to know the (official) smallest
> > permissible distance between two non-overlapping controls?

> > ----------- "Life is nothing if you aren't obsessed." --John Waters
> > -------------------------------------------------------------------

> Hi Mark,

> > Well, that was amazing.... and sobering.  ;)  ;(   Thanks, ibby.
> > I definitely am interested in the details you mentioned -- which
> > values cause the problem, etc.

> One way of ensuring you never have the problem is to leave the following
> settings in the VBE at their default values (actually, you can change the
> grid height/width to 3 without leading to problems - see explanation later):

> Tools | Options | General | Align Controls to Grid - selected
> Grid Width = 6
> Grid Height = 6

> and to always drag the controls around the UserForm, allowing them to align
> to the grid.

> As soon as you start setting manual values for Height & Top (either at
> design or runtime), you may run into wierd behaviour. There seems to be a
> pattern to it:

> Height = 19,22,25,28, etc
> Top = 1,4,7,10, etc

>     -> text appears larger

> Height = 20,23,26,29 etc
> Top = 2,5,8,11, etc

>     -> text appears smaller

> Height = any value
> Top = 0,3,6,9,12, etc

>     -> no probem

> This last scenario is why most people never have the problem. If you leave
> the grid settings at default and just drag your controls around (like people
> do most of the time), they will snap to the grid -> therefore, the only
> possible values for Top will be 0,6,12,18, etc. So the m{*filter*}of the story
> is: Make the Top value a multiple of 3.

> Note: I didn't try out decimal values for these properties ;-)

> --
> Hope this helps.
> ibby

> Please post replies or follow-ups to the **newsgroup** so that participants
> may benefit or contribute.