Reconnaître font dans un textbox

Bonjour,
j'ai des donnée en multilangue qui s'affiche dans des textbox,
je veux afficher un bouton d’impression losque un font arabe ou hébreu est afficher
quel code a ajouter pour reconnaitre un font arabe ou hébreu dans un textbox ?
Merci

Salut

Dans le principe

Code:

---

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

Private Sub Text1_Change() Dim CFGFont As StdFont Set CFGFont = Text1.Font Const HEBREU = 177 Const ARABE = 178 If CFGFont.Charset = HEBREU Or CFGFont.Charset = ARABE Then Command1.Visible = True Else Command1.Visible = False End If Set CFGFont = Nothing End Sub

---

Je pense qu'il te faudra trouver un autre évenement que le Text1_Change

Merci Pour votre aide, ça marche très bien , j'ai mis ça sur un timer.
merci encore.