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

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

On Tue, 28 Jul 2009 12:29:34 -0700, "Steve Yandl"
wrote:

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

Steve, thanks for that. Worked a treat.
But do you know how (or if you can)
lock the controls onto the Forn, as if they had been
put there at design time?

I've found I can't get to their click event code anyhow.

Thanks - Kirk

I'm not certain but think you might have to insert a
DoEvents
statement.


Steve



"kirkm" wrote in message
...
On Tue, 28 Jul 2009 12:29:34 -0700, "Steve Yandl"
wrote:

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

Steve, thanks for that. Worked a treat.
But do you know how (or if you can)
lock the controls onto the Forn, as if they had been
put there at design time?

I've found I can't get to their click event code anyhow.

Thanks - Kirk

Sub MyExample
Msgbox "Hello World!"
End Sub

(sorry, couldn't resist)
8-)

"unknown" wrote: