[hafid33]

(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

الف شكر اخي لكن ما اريده هو ان اظهر فورم من خلال دلك الزر ومثلا وسطه data grid

---

شكرا اخي سؤال ما هو الامر
AddHandler btn.click, AddressOf btn_click

Sub btn_click(ByVal sender As Object, ByVal e As EventArgs)
ممكن شرح بسيط ان امكن