Code to add a label to a UserForm

[cs1ctp]

Hi,

I have the code to add a label to the ActiveSheet:

Dim DB As Object
            Set DB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, _
            DisplayAsIcon:=False, Left:=12, Top:=114, Width:=162, Height:=18)
            DB.Object.caption = Contract
            DB.Object.ForeColor = &H8000000D

but how do I add it to a UserForm rather than the Worksheet??

Thanks in advance for your help,

Chris

 

[Norie]

Chris

Try this.

Set ctl = Me.Controls.Add("Forms.Label.1")
ctl.Caption = "New Label"