[samers]

السلام عليكم ورحمة الله وبركاته
عندي سؤالين مرتبطين ببعض :
أولاً: عندي هذا الكود  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim TxtBox1, txtbox2, txtbox3 As New TextBox()
       With TxtBox1
           .Location = New Point(64, 40)
           .Size = New Size(100, 20)
           .TabIndex = 0
           .Text = ""
           With txtbox2
               .Location = New Point(64, 20)
               Size = New Size(100, 20)
               .Multiline = True
               .ScrollBars = ScrollBars.Both
               .TabIndex = 1
               .Text = ("")
               With txtbox3
                   .Location = New Point(64, 60)
                   .Size = New Size(100, 20)
                   .Multiline = True
                   .TabIndex = 0
                   .Text = ""
               End With
           End With
       End With
       Controls.Add(TxtBox1)
       Controls.Add(txtbox2)
       Controls.Add(txtbox3)

   End Sub
السؤال: هل يمكن اختصار هذا الكود بكود واحد لانشاء عدة تكست بوكس
السؤال الثاني : كيف يمكن حفظ المدخلات في هذه التكست لأني جربت بالطريقة SETTING ولكن لم تنفع , وشكرا لكم