(28-02-22, 09:14 PM)warso كتب :

كود :

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


       Dim frm As New Form()
       Dim frm1 As New Form()
       Dim btn As New Button()

       frm.StartPosition = FormStartPosition.CenterScreen
       frm.Controls.Add(btn)

       btn.Text = "نوع"
       btn.Location = New Point(140, 70)
       btn.Size = New Size(80, 50)

addhandler btn.click,addressof btn_click

       frm.Show()

   End Sub

sub btn_click(sender as object,e as eventargs)
msgbox("hi")
end sub