زر يضيف تكست بوكس داخل اللست ليس بيانات وانما

اعتقد ان هذه اداة اخرى وليست اداة قائمة عادية ... لآنها تحوي مربعات النصوص بداخلها اي تقوم بحظنها ...

تحياتي لك

تستطيع عمل ذلك بمساعدة الاداتين التاليتين

Picture

VScroll

وهذا الكود لأنشاء زر كوموند و تيكس

Option Explicit
Private WithEvents btnObj As CommandButton
Private WithEvents txtObj As TextBox
    
    
Private Sub btnObj_Click()
    On Error Resume Next
    Set txtObj = Controls.Add("VB.textbox", "txtObj")
    With txtObj
        .Visible = True
        .RightToLeft = True
        .Alignment = 2
        .Width = 2000
        .Text = "ÇáÓáÇã Úáíßã"
        .Top = 2000
        .Left = 1000
    End With
End Sub
    
Private Sub Form_Load()
    Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
    With btnObj
        .Visible = True
        .Width = 2000
        .Caption = "Click"
        .Top = 1000
        .Left = 1000
    End With
End Sub

هل من اداة خاصة