[HASAN6.0]

PHP كود :

Dim x As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim bun As New Button
        bun.Left = x
        bun.Text = "New btn" + Now.Millisecond.ToString
        Me.Controls.Add(bun)
        AddHandler bun.Click, AddressOf NewButton_Click
        x += bun.Width

    End Sub
    Private Sub NewButton_Click(sender As Object, e As EventArgs)
        MsgBox("I'm new Button My Text is : " + sender.text)
    End Sub