How to change the UserForm Caption Font

[erik.van.geit]

Hi, guys and galls,

Please do the following.
Create a Userform
Change the FONT property: name or size or both

What do you expect? I thought that the caption font and size would change. But nothing happens.

Perhaps I am missing the obvious... What's the FONT property made for then?

If someone can help, that would be nice.

kind regards,
Erik

PS: some code I played with

Private Sub UserForm_Click()

Me.Font.Size = 10
Me.Font.Name = "Trebuchet MS"
MsgBox Me.Font.Name & vbNewLine & Me.Font.Size
 
Me.Font.Size = 40
Me.Font.Name = "Arial"
MsgBox Me.Font.Name & vbNewLine & Me.Font.Size

End Sub

 

[Jaafar Tribak]

@ hymced
@ YasserKhalil

Hi,
Just got around finishing this - Please, check out this thread ... I hope this time around the code is more robust and works for you.

Regards.

 

[hymced]

Wow! I will take a look at it before the end of the week
Does your method require to use old fashioned "X" button or you can keep system formatting ?

 

[Jaafar Tribak]

Wow! I will take a look at it before the end of the week
Does your method require to use old fashioned "X" button or you can keep system formatting ?

Unfortunately, The DrawFrameConttrol API produces only classic-looking "X" buttons. The only thing I can think of is to dynamically get the screen region that the close button is located in and exclude that region from the clipping region.

 

[Jaafar Tribak]

Take a look here for a new approach without needing to subclass the userform (more stable)