Funcion para los Textbox

[erick_arcini]

Prueba esto y me dices como vas

Código:

        For Each c As Control In Me.Controls
            If TypeOf c Is TextBox Then
                CType(c, TextBox).ReadOnly = True
            End If
        Next