bloqueo de cajas de textos

[gusanosxr]

Iniciado por pkj

Código vb:

Private Sub Form_Load()
  Dim ctrl As Control
  For Each ctrl In Controls
    If TypeOf ctrl Is TextBox Then
      ctrl.Enabled = False
    End If
  Next ctrl
 
End Sub
 

GRACIAS compa, todo perfe!!!