[VB6] Problema con una classe

[DreyMIX]

Salve, ho il seguente problema. Vi posto il codice:

1) La classe si chiama "MainClass.cls" e c'è questo codice:

Option Explicit
Private fieldUser() As TipoDati

Private Type TipoDati
    Type As String
    Desc As String
    Enabled As Boolean
End Type

Private Sub Class_Initialize()
    ReDim fieldUser(6)
    
    fieldUser(0).Type = "cod"
    fieldUser(0).Desc = "Codice"
    fieldUser(0).Enabled = False
   
    fieldUser(1).Type = "text"
    fieldUser(1).Desc = "Nome"
    fieldUser(1).Enabled = True
   
    fieldUser(2).Type = "text"
    fieldUser(2).Desc = "Cognome"
    fieldUser(2).Enabled = True
   
    fieldUser(3).Type = "date"
    fieldUser(3).Desc = "Data di nascita"
    fieldUser(3).Enabled = True
   
    fieldUser(4).Type = "num"
    fieldUser(4).Desc = "Età"
    fieldUser(4).Enabled = False
    
    fieldUser(5).Type = "text"
    fieldUser(5).Desc = "Sesso"
    fieldUser(5).Enabled = True
    
    fieldUser(6).Type = "text"
    fieldUser(6).Desc = "Comune di nascita"
    fieldUser(6).Enabled = True
End Sub

Property Get getFieldUser() As Variant
    getFieldUser = fieldUser
End Property

2) Poi ho un form chiamato "FrmMain.frm" e dentro c'è:

Private mClass As MainClass

Private Sub Form_Load()  
    '// Richiama la classe principale
    Set mClass = New MainClass
    c = mClass.getFieldUser
End Sub

Ecco appena esegue il codice:

c = mClass.getFieldUser

entra nella classe e nel metodo "getFieldUser()".
Appena ci entra VB6 va in debug e mi dice il seguente errore:

Errore di compilazione:

Solo i tipi definiti dall'utente in moduli di oggetto pubblici possono essere assegnati a o da una variabile Variant oppure passati a funzioni per cui è prevista l'associazione tardiva.

A questo punto non so che fare.

Grazie per un eventuale aiuto

[-MiStO-]

mmhhh a naso prova a dichiarare la property come public
quindi public property get ecc ecc
credo sia quello

[DreyMIX]

Grazie ma ci avevo già provato e stesso errore.

[DreyMIX]

Ok ho risolto. Dovevo dichiarare la variabile "c" nel form come oggetto.

Dim c As Object