Modification de propriété d'un textbox

Bonjour,

J'ai créé une fonction permettant d'effacer tous les textbox dans une forme.

Je souhaiterai utiliser cette fonction pour, par exemple, limiter la taille du texte à 10 caractères. La propriété ctl.MaxLength est inaccessible (alors que ctl.Text l'est) !
Question : comment modifier cette propriété (ou une autre) ?

Merci
---------------------------------------------------------

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub EffacerTextBox(ByVal forme As Control) Dim ctl As Control   For Each ctl In forme.Controls If TypeOf ctl Is System.Windows.Forms.TextBox Then ctl.Text = "" Else If TypeOf ctl Is System.Windows.Forms.GroupBox Then EffacerTextBox(ctl) End If Next ctl   Return End Sub

---

ctl est défini dans ton code comme un control (et c'est logique d'ailleurs)
la classe control a une propriété text, mais n'a pas de propriété maxlength
la classe textbox est hérité de la classe control, elle hérite donc de text et elle ajoute maxlength


solution : caster la variable
directcast(ctl,textbox).maxlength = ...

Je ne connaissais pas cette 'fonction'.
Je vous adresse un grand Merci.
Cordialement.