Dim i As Integer = 0 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim btn1 As New Button btn1.Name = "Ad" + i.ToString btn1.Text = "ad" + i.ToString AddHandler btn1.MouseMove, AddressOf Button1_MouseMove AddHandler btn1.MouseDown, AddressOf Button1_MouseDown AddHandler btn1.MouseUp, AddressOf Button1_MouseUp Me.Controls.Add(btn1) btn1.BringToFront() i += 1 End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)