Visual Basic

'create stream writer to add data in to text tile<br />
    Private Sub AddDataInFile()<br />
        Dim DataWriter As New System.IO.StreamWriter(MyFile, True)<br />
        'get data to variable<br />
        Title = Trim(cboTitle.SelectedItem.ToString)<br />
        FName = Trim(txtName.Text)<br />
        MName = Trim(txtMName.Text)<br />
        SName = Trim(txtSurname.Text)<br />
        Age = Trim(txtAge.Text)<br />
        'write data to file<br />
        DataWriter.WriteLine(Title + FName + MName + SName + Age)<br />
        DataWriter.Close()<br />
    End Sub

Private Sub AddDataInCombo()<br />
        'get all the name in combo box<br />
        Dim TempData As String<br />
        cboMyList.Items.Clear()<br />
        If System.IO.File.Exists(MyFile) = True Then<br />
            Dim DataReader As New System.IO.StreamReader(MyFile)<br />
            Do While DataReader.Peek <> -1<br />
                TempData = Trim(DataReader.ReadLine())<br />
                cboMyList.Items.Add(TempData)<br />
            Loop<br />
            DataReader.Close()<br />
        End If<br />
    End Sub

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

        Dim NewTB As New TextBox
        Dim TBName As String
        Dim TBindex As Integer = 1

        For TBindex = 1 To 3
           
            TBName = "Textbox" & TBindex
            Me.Controls.Add(NewTB)
            NewTB.Name = TBName
            NewTB.Enabled = True
            NewTB.Visible = True
            NewTB.Height = 20
            NewTB.Width = 100
            NewTB.Top = 130 + ((TBindex - 1) * 25)
            NewTB.Left = 20

        Next TBindex

End Sub