اريد كود لهذا السؤال

[hassanalhawy]

        Dim r_t As Byte
        TextBox1.Visible = False
        TextBox2.Visible = False
        TextBox3.Visible = False
        TextBox4.Visible = False
        TextBox5.Visible = False
        Randomize()
        r_t = Rnd() * 5
        If r_t = 1 Then TextBox1.Visible = True
        If r_t = 2 Then TextBox2.Visible = True
        If r_t = 3 Then TextBox3.Visible = True
        If r_t = 4 Then TextBox4.Visible = True
        If r_t = 5 Then TextBox5.Visible = True