for each control ontrol in me.controls if control.gettype is gettype textbox then control.enable=false end if next
For Each c As Control In Controls Dim t As TextBox = TryCast(c, TextBox) If t IsNot Nothing Then t.Enabled = False End If Next
for each control ontrol in me.controls if ontrol.gettype is gettype textbox then ontrol.enable=false end if next
For Each ctl As Control in Me.Controls If TypeOf(ctl) Is TextBox Then ctl.Enabled = False End If Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)