comment peut-on utiliser les variables utilisateurs(instruction type) dans une propriéte (instruction property let) d'un active x dll en visual basic 6

quel est le probleme dans l'exemple ci dessous ?

module class :

Option Explicit
Private VarPriv17 As Var_Type

Type Var_Type
Var20 As Integer
Var21 As String
Var22(1 To 99, 1) As Variant
End Type

Public Property Get Var16() As Var_Type
Var16.Var20 = VarPriv17.Var20 * 10
End Property

Public Property Let Var16(NewVar16 As Var_Type)
VarPriv17.Var20 = NewVar16.Var20
End Property

Programme client (exe standard) :

Option Explicit
Private Var10 As New ESSAI

Private Sub Command1_Click()
Var10.Var16.Var20 = Val(Text1.Text)
Visu_Var80.Caption = Var10.Var16.Var20
End Sub

Merci

Chu_s vraiment pas sur car je les ai manipé une fois, mais tu declares une variable en var_type et tu définis var_type aprés. C'est peut être pour ça. MAis chuis vraiment pas sur.
FatBoy


-------------------------------
Réponse au message :
-------------------------------

comment peut-on utiliser les variables utilisateurs(instruction type) dans une propriéte (instruction property let) d'un active x dll en visual basic 6

quel est le probleme dans l'exemple ci dessous ?

module class :

Option Explicit
Private VarPriv17 As Var_Type

Type Var_Type
Var20 As Integer
Var21 As String
Var22(1 To 99, 1) As Variant
End Type

Public Property Get Var16() As Var_Type
Var16.Var20 = VarPriv17.Var20 * 10
End Property

Public Property Let Var16(NewVar16 As Var_Type)
VarPriv17.Var20 = NewVar16.Var20
End Property

Programme client (exe standard) :

Option Explicit
Private Var10 As New ESSAI

Private Sub Command1_Click()
Var10.Var16.Var20 = Val(Text1.Text)
Visu_Var80.Caption = Var10.Var16.Var20
End Sub

Merci