کپی یک متن و قراردادن آن در چند تکست باکس بصورت اتوماتیک

باسلام خدمت همه دوستان

دوستان عزیز یک فرم دارم که اون فرم متشکل از 8 تکست باکس هست و هر تکست باکسی محدود به چند کاراکتر

حالا میخوام وقتی توی تکست باکس اولی متن رو کپی کردم بصورت اتوماتیک توی بقیه تکست باکس ها خودش قرار بگیره . لطفاً با ذکر نمونه راهنمائیم کنید . / باتشکر

اگر منظورت فوکوس هست که تو رویداد leave تکس باکست بنویس که textbox2.focus
با tab هم میشه اونوقت باید tabindex هات رو ترتیب کنی

سلام
اگه اشتباه نکنم مثل کپی سریال نرم افزارها منظورتونه
باید کدی بنویسی که بعد از تعداد کاراکتر خالص فوکوس به تکس باکس بعدی بره .
اگه نیارز به توضیح بیشتر داری بگو

سلام
با اين كد همزمان توي همه تكسباكس ها متن paste ميشه
اول توسط split متن ها جدا ميشه و تكس باكسها اندازه شون(MaxLength ) توسط متن موجود در Clipboard تغيير ميكنن
يعني هر چقدر متن قبل و بعد از خط تيره كه توسط split جدا ميشن تغيير ميكنن

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

               Dim aryTextFile() As String

        Dim i As Integer

        aryTextFile = My.Computer.Clipboard.GetText.Split("-")

        If My.Computer.Clipboard.GetText.Contains("-") = True Then

            For i = 0 To aryTextFile.GetUpperBound(0)

                TextBox1.MaxLength = aryTextFile(0).Length

                TextBox2.MaxLength = aryTextFile(1).Length

                TextBox3.MaxLength = aryTextFile(2).Length

                TextBox4.MaxLength = aryTextFile(3).Length

                Label1.Text = TextBox1.MaxLength

                Label2.Text = TextBox2.MaxLength

                Label3.Text = TextBox3.MaxLength

                Label4.Text = TextBox4.MaxLength

                TextBox1.Text = aryTextFile(0)

                TextBox2.Text = aryTextFile(1)

                TextBox3.Text = aryTextFile(2)

                TextBox4.Text = aryTextFile(3)

            Next

        End If   

End Sub