[Anas Mahmoud]

استخدم الاداة FlowLayoutPanel

وقت التصميم ضع الاداه بمالقاس الذي تريده

ثم في الكود لاضافة الازرار ستقوم بالتالي :

قم بعمل الاستعلام المناسب للحصول على البيانات من الجدول ، 

ثم انشا زر جديد واضف له اسم الصنف مثلا في الخاصية text و كذلك ال Id الخاص به في الخاصية tag ، لاحظ ان هذه الخطوة مهمة جدا جدا للتميز بين الازرار

ثم اضف له حدث الضغط للاجراء btn_click الذي ستلتقط فيه هذا الحدث مثلا 

كود :

   Dim btn As New Button
   btn.Tag = 0 'ID
btn.Text = "" 'النص المكتوب عليه
AddHandler btn.Click , addressof btn_Click
   flowLayoutPanel1.Controls.Add(btn)

الان الاجراء الخاص بالحدث 

كود :

Sub btn_Click (sender as object, e as eventargs)

dim btn as Button = sender
dim Id as integer = btn.tag

'الان ان تعرف اي صنف تم ضغطه Id
'افعل ما تراه مناسبا
end sub

اعذرني الكود كتبته في النوت باد لم اجربه جربه واعطني الناتج