[ali.alfoly]

مثال

PHP كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim frm As New Form
        frm = F_Rm()

        frm.Btn.text = ""

    End Sub

    Private Function F_Rm() As Form
        Dim Frm As New Form
        Dim Btn As New Button
        With Btn
            .Text = "اضغط هنا"
        End With
        With Frm
            .Text = "تجربة فورم"
            .Controls.Add(Btn)
        End With
        Return Frm
    End Function
End Class