how to Change the ReadOnly Property Of Text at run time ?

[loyal]

Hi all

 

I have several text boxes on my form

 

I am trying to chanage the ReadOnly Property at run time

is there any trick that I can do it by For statement ?

 

see the code

..................

 

Dim ctl As Control
           For Each ctl In Me.Controls
               If TypeOf ctl Is TextBox Then
                   ctl.BackColor = Color.White
'Here I want to say ctl.ReadOnly = false 'But no Found (*&*)
               End If

 

Help me Please

[PlausiblyDamp]

try

	Dim ctl As Control
	For Each ctl In Me.Controls
		If TypeOf ctl Is TextBox Then
			ctl.BackColor = Color.White
			DirectCast(ctl, TextBox).ReadOnly = False

		End If
	Next

[loyal]

Thanks it works I really appreciated it