Kirk,

I did a quick test and your code worked fine except a width of 30 wasn't
quite enough to fit the caption. The one think I left out was the variable
declaration. Try changing
Dim myLabel As Label
to
Dim myLabel As Control


Steve Yandl



"kirkm" wrote in message
...

To put several controls on a form from code.

Was playing with this but can't get it to work -
---
Private Sub CommandButton1_Click()

Dim myLabel As Label
Set myLabel = frmMyForm.Controls.Add("Forms.Label.1", "lblPrompt")
With myLabel

.Left = 10
.Top = 10
.Width = 30
.Caption = "Enter your name:"

End With

End Sub
---

Thanks - Kirk