Userform FontStyle

[VisLord]

Trying to set the "ctrl" font to BOLD.....

Sub cnmsUForm()
Dim cnmsUF As VBComponent, ctrl As Control
Dim i As Integer, top As Integer
Set cnmsUF = ThisWorkbook.VBProject.VBComponents.Add(3)
With cnmsUF
.Properties("Caption") = "CNMS Data Analysis"
Set ctrl = .Designer.Controls.Add("Forms.Commandbutton.1", "cb1", True)
With ctrl
.top = 10
.Left = 10
.Height = 18
.Width = 100
.caption = "Get Files"
'.caption.Font.FontStyle.Bold = True
End With
End With
End Sub

HELP !!!!!!

_________________
VisLord -->
This message was edited by VisLord on 2002-04-28 13:24

 

[Colo]

Hi VisLord. Try this.

<pre>
Sub cnmsUForm()
Dim cnmsUF As VBComponent, ctrl As CommandButton
Dim i As Integer, top As Integer
Set cnmsUF = ThisWorkbook.VBProject.VBComponents.Add(3)
With cnmsUF
.Properties("Caption") = "CNMS Data Analysis"
Set ctrl = .Designer.Controls.Add("Forms.Commandbutton.1", "cb1", True)
With ctrl
.top = 10
.Left = 10
.Height = 18
.Width = 100
.Caption = "Get Files"
.Font.Bold = True
End With
End With
End Sub
</pre>

 

[VisLord]

Thanks, Colo

I thought I had tried that...
tried every thing else...

That worked...

Duh...