[asmarsou]

تفضل

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        T5.Text = TextBox1.Text.Substring(0, 1)
        T4.Text = TextBox1.Text.Substring(1, 1)
        T3.Text = TextBox1.Text.Substring(2, 1)
        T2.Text = TextBox1.Text.Substring(3, 1)
        T1.Text = TextBox1.Text.Substring(4, 1)
    End Sub