Dim btn As New Button btn.Text = "" btn.Name = "" btn.Location = New Point(X, Y) btn.Height = btn.Width = AddHandler btn.Click, AddressOf btn_Click Me.Controls.Add(btn)