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.

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

[VisLord]

Thanks, Colo

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

That worked...

Duh...