اضافة صف كنترول على الفورم كلما وصل التسجيل لعنصر الكنترول الاخير

[saad abed]

السلام عليكم ورحمة الله وبركاته

هل يمكن اضافة صف كنترول كلما وصلت للتسجيل لاخر كنترول

الكنترول مسمى بطريقة الاعمده a1-b1-b1-d1-e1-f1-g1

الهدف من التسمية هو كود اخى عبدالله باقشير فى الترحيل

والهدف من الفرام ظهور شريط التمرير على الفريم اذا تخطى حجم الفرام وتظهر راس الفاتوره

اشكركم

Book1.rar

[saad abed]

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