Apportez la correction de ce code ci-dessous

Ce code vb6.0 permet de transférer les types des données dans les textes boxes, j'ai besoin du corrigé en cas d'Erreur de compilation: Attendu: Expression

Code:

---

1 2 3 4 5

Private Sub Command2_Click() If Value.Is(In.Text1.Text2.Text3.Text4) Then Value.Transfer End If End Sub

---

Salut cheidly

Pour ma part, je doute que ce code soit du VB6.0 (utilisation de In pour des composants ?)
Es tu sûr de programmer en VB6 et non en VBA, sinon vois ce lien, Comment savoir si l'on utilise VBA ou VB6 ?