A cette adresse :
http://webman.developpez.com/preview/vb90/#LF

dans l'avant dernière rubrique il y a le bout de code suivant :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Class English
  Name As String
End Class
 
Class Nederlands
  Naam As String
End Class
 
Class Français
  Nom As String
End Class 
 
 
Dim Dictionary = New Dictionary(Of String, String) { _
    .Add("English", "Name"), _
    .Add("Nederlands", "Naam"), _
    .Add("Français", "Nom") }
Dim Person As Object = New Français { .Nom = "Eiffel" }
Dim Name As String = Person.(Dictionary(Person.GetType().Name))

je teste dans tous les sens mais rien ne fonctionne ?

est-ce vous y arrivez ? si oui comment ? pour moi c'est mystère !