منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

تفضل اخي الكريم هاي الفكرة

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FlowLayoutPanel1.FlowDirection = FlowDirection.RightToLeft
Dim int As Integer

For i As Integer = 1 To 3
Dim btn As New Button
btn.Text = "btn" + i.ToString
btn.Name = "btn" + i.ToString
btn.Left = 10
btn.Top = int
Me.Controls.Add(btn)


AddHandler btn.Click, AddressOf Button_Click_

int += 30
FlowLayoutPanel1.Controls.Add(btn)
Next




End Sub




Private Sub Button_Click_(ByVal SENDER As System.Object, ByVal E As System.EventArgs)



MsgBox(SENDER.NAME)

MsgBox(SENDER.Text)

End Sub