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
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