Private cmdLots(40) As MSForms.TextBox
Private Sub CommandButton1_Click()
Dim MyFrmLeft As Double
Dim ScHght As Double
Dim i As Long
Dim j As Long
Dim k As Long
Dim n As Long
For j = 6 To 1 Step -1
For i = 1 To 40
k = i
Set cmdLots(k) = Frame1.Controls.Add("Forms.textbox.1", Chr(97 + n))
With cmdLots(k)
.Top = i * 20
.Width = 110
.Height = 30
.Left = (j * 110) - 50
.Text = .Name & k
.TextAlign = 2
.Font.Bold = True
.Font.Size = 12
.Font.Name = "Arial"
cmdLots(k).BackColor = &H80000003
End With
Next i
n = n + 1
Next j
'=================================
End Sub
هذا الكود من اعمال اخى ياسر خليل
يضيف ما شئت من تكست بوكس بالاسماء التى اريدها
ولكن ما اريده هو ان يكون العمود الاول والثانى .Width = 110 اكبر من ذلك
Book1.xlsb