Try something like the following. Change the various properties
to meet your needs.

Dim Ctrl As MSForms.Control
Set Ctrl = UserForm1.Controls.Add("Forms.Label.1", "Label1",
True)
Ctrl.Height = 10
Ctrl.Width = 10
Ctrl.Top = 10
Ctrl.Left = 10
Ctrl.Caption = "A"
UserForm1.Show


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Henry" wrote in message
...
I'm trying to set up an array of labels on a form at runtime.
The size of the array is determined from a textbox input at the
top of the form.
The sort of thing I want is like a blank crossword grid, where
I can adjust the caption in each label later to be 1 letter.
I've tried to copy a label and then paste it, but VBA doesn't
allow this.
Has anyone any suggestions on how to achieve this?

TIA
Henry