collecter un évenement en Visual Basic

Bonjour à tous,

J'ai réalisé un serveur d'automation de test déclenchant un évenement avec c++ Builder.

Je cherche à utiliser ce serveur avec Microsoft Visual Basic, par exemple.
Pour cela, j'ai écrit quelques lignes de code dans l'éditeur de Word :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test()   Dim obj As ServeurTest.ClassTest Set obj = New ServeurTest.ClassTest   rem appel à la méthode déclenchant l'évenement EventTest obj.CallServer   End Sub

---

Ce code fonctionne mais je ne sais pas comment collecter l'évenement EventTest que je peux voir dans l'explorateur d'objet :

Event EventTest()
Membre de ServeurTest.ClassTest

Je ne suis pas du tout à l'aise avec la programmation objet en VB6 mais peut être mon idée n'est-elle pas stupide :
Lorsqu'on déclare l'événement click d'un buton par exemple on declare la procédure :

Code:

---

Private Sub Buton_Click()

---

Qu'est-ce que cela donne si tu essai de déclarer la procédure :

Code:

---

Private Sub obj_EventTest()

---

Il faudra bien sur dans ce cas pour tester que la déclaration de l'objet

Code:

---

Private WithEvents obj As ServeurTest.ClassTest

---

Ne soit plus dans procédure Test mais soit Global / ou ai une portée sur tous le code du module dans lequel tu déclare ton événement (Déclaré en entête juste après "Option Explicit").

Ce n'est qu'une idée, je n'ai absolument pas testé et n'ai jamais eu à instancier un objet possédant des événements de cette manière.

Edit : Correction de la déclaration de l'objet contenant l'événement avec le mot clé "WithEvents"