[atefkhalf2004]

يا ريس اشكرك علي الشرح المستفيض
والذي تعلم منه الجميع
يتبقي شيء واحد
في البروسيدجر مثلا
ارغب في تنفيذ امر رقم 2 بعد انشاء الازرار ووضعها في البانل
Private Sub com()
ComboBox1.SelectedText = "con"
cmd = New OleDbCommand
dtd = New DataTable
ddt = New OleDbDataAdapter
Panel1.Controls.Clear()
loc.Y = Nothing
loc.X = Nothing
con.Open()
cmd.CommandText = "SELECT * from cmn "
cmd.Connection = con
ddt.SelectCommand = cmd
ddt.Fill(dtd)
Dim cnt = (dtd.Rows.Count - 1)
Dim i As Short
ReDim btn(cnt)
For i = 0 To cnt
btn(i) = New Button
With btn(i)
.Size = New Point(230, 50)
.Name = "Button" & i
.Text = dtd.Rows(i)(1)
.BackColor = Color.BurlyWood
.Location = loc
.TabStop = False
loc.Y += 40
'TextBox1.Text = "Coffee" ' this block of code sends the name of the button for further action
'TextBox3.Text = dtd.Rows(i)(2)
'TextBox2.Focus()
AddHandler .Click, AddressOf btn_click
End With
Next
Me.Panel1.Controls.AddRange(btn)
''' المطلوب تنفيذ الامر رقم 2 في مصفوفة الازرار
'''''btn ماذا اكتب هنا
con.Close()
ddt.Dispose()
End Sub

---

عند كلمة ماذا اكتب هنا
كيف استدعي رقم 2 مثلا
شكرا لك