Caption on userform centered?

[Cowboy Henk]

Howdy,

Is there a possibility in VBA to always center the caption of a userform. I tried doing it with spaces, but this didn't work on all computers(depends on screen resolution probably). How can I make this work?
Thanks for your help.

 

[gaj104]

Hi,

Heres my logic.

Take forms width & divide by 2 to give horiztonal centre point. Do the same for height.

Now you get the co-ordinates for for the centre point in the form.

Next move the label (you used the word caption which is a property of a label) to the centre point.

So using the forms on Initialise (NB my form was called UserForm1 and label called Label1 - change where required)

Private Sub UserForm_Initialize()

Dim fWidth As Integer, fHeight As Integer, lWidth As Integer, lHeight As Integer

UserForm1.Label1.AutoSize = True

fWidth = UserForm1.InsideWidth / 2

fHeight = UserForm1.InsideHeight / 2

lWidth = UserForm1.Label1.Width / 2

lHeight = UserForm1.Label1.Height / 2

UserForm1.Label1.Left = fWidth - lWidth

UserForm1.Label1.Top = fHeight - lHeight

End Sub

A nice simple code.

Hope it helps