[mrnooo2000]

كلما تحتاجه هو سطر واحد فقط 

كود :

       Dim newButton = New Button()
       newButton.Location = New Point(180, 50)
       newButton.Text = "100"
       AddHandler newButton.Click, AddressOf Me.Button_Click
       Me.Controls.Add(newButton)

و بالتأكيد ستحتاج الى كود الحدث الذى سيتم تنفيذه 

كود :

   Private Sub Button_Click()
       MsgBox("مبروك")
   End Sub

يمكنك اضافة أى عدد من الازرار 
و من خلال الاجراء Button_Click
يمكنك تحديد أى زر ماذا سيفعل 

كود :

 Private Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim btn As Button = CType(sender, Button)
   MsgBox("You clicked " + btn.Text)
End Sub