اريد كود يقوم باختيار textbox عشوائى من 5

اى يختار واحد فقط من 5 كل مرة يتم تغير هذا textbox عند عمل ريفريش للصفحة

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

hass****hawy
انا مش عارف اشكرك ازاى بجد جزاك الله خير

بس معلش
عاوز الكود دة لو عاوز اخلية بدل text box يبقا على form

اعتقد انه يتم تعريف الكود السابق داخل Module

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Me.Hide()
Dim r_t As Byte
Randomize()
r_t = Rnd() * 5
If r_t = 1 Then Me.Show()
If r_t = 2 Then Form2.Show()
If r_t = 3 Then Form3.Show()
If r_t = 4 Then Form4.Show()
If r_t = 5 Then Form5.Show()
End Sub

انا مش عارف اشكرك ازاى