Dim Valeur() as Integer
Redim Valeur(0 to 2)
Valeur(0) = 5
Valeur(1) = 12
Valeur(2) = 45
' Définissons notre classe tout d'abord
Public class Personne
Public property Nom as String
Public property Prenom as String
Public Property Age as Integer
End Class
' Utilisons notre classe
Dim Ouvriers() as Personne
Redim Ouvriers(0 to 2)
Ouvriers(0) = New Personne
Ouvriers(1) = New Personne
Ouvriers(2) = New Personne
Ouvriers(0).Nom = "JACQUET"
Ouvriers(0).Prenom = "François"
Ouvriers(0).Age = 32