[HASAN6.0]

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Controls.Add(Textb("Text1", 64, 20))
        Me.Controls.Add(Textb("Text2", 64, 45))
        Me.Controls.Add(Textb("Text3", 64, 70))
    End Sub
    Function Textb(ByVal mName As String, x As Integer, y As Integer) As TextBox
        Dim txt As New TextBox()
        txt.Name = mName
        txt.Location = New Point(x, y)
        txt.Size = New Size(100, 20)
        AddHandler txt.TextChanged, AddressOf Text_TextChanged
        txt.Text = GetSetting("A", "B", mName)
        Return txt
    End Function

    Private Sub Text_TextChanged(sender As Object, e As EventArgs)
        SaveSetting("A", "B", sender.name, sender.text)
    End Sub