Donate. I desperately need donations to survive due to my health

Get paid by answering surveys Click here

Click here to donate

Remote/Work from Home jobs

Values in a Tab Control Group?

Values ​​in a Tab Control Group? I have the following code: and I want the txtDraw Textbox to insert it into a TabControl2, but if I enter it will not show me the values ​​again, and I do not know how to do it.

   

Dim I As Integer
        Dim aryText () As String
        'SPLIT THE TEXT INTO AN ARRAY'
        aryText = TextNSt15.Lines (0) .Split ("," c)
        For i = 0 To aryText.Length - 1
            Dim s = aryText (i)
            Dim n = CInt (s)
            Dim txtDrawANum = Math.Ceiling (n / 10)
            Dim txtDrawA = Me.Controls ("txtDrawA" & txtDrawANum)
            txtDrawA.Text = (CInt (txtDrawA.Text) + 1) .ToString ()
        Next
        txtDrawB ()
        txtDrawC ()
    End Sub
    Private Sub txtDrawB ()
        Dim I As Integer
        Dim aryText () As String
        'SPLIT THE TEXT INTO AN ARRAY'
        aryText = TextNSt2.Text.Split ("," c)
        For i = 0 To aryText.Length - 1
            Dim s = aryText (i)
            Dim n = CInt (s)
            Dim txtDrawBank = Math.Ceiling (n / 10)
            Dim txtDrawB = Me.Controls ("txtDrawB" & txtDrawBNum)
            txtDrawB.Text = (CInt (txtDrawB.Text) + 1) .ToString ()
        Next
    End Sub
    Private Sub txtDrawC ()
        Dim I As Integer
        Dim aryText () As String
        'SPLIT THE TEXT INTO AN ARRAY'
        aryText = TextNSt3.Text.Split ("," c)
        For i = 0 To aryText.Length - 1
            Dim s = aryText (i)
            Dim n = CInt (s)
            Dim txtDrawcNum = Math.Ceiling (n / 10)
            Dim txtDrawc = Me.Controls ("txtDrawC" & txtDrawCNum)
            txtDrawC.Text = (CInt (txtDrawC.Text) + 1) .ToString ()
        Next
    End Sub

Comments