Duda simple Property Let

[Psyke1]

Bueno, aqui vengo con una duda siiiiiiiiimple...
Estoy creando una clase.

No se porque me da error lo siguiente:

Código: (vb) [Seleccionar]

Private lColor                              As Long

Public Property Let Color(ByVal NewColor As Long)
    lColor = NewColor
End Property
Error

Uso no válido de la propiedad

Gracias!

[ssccaann43]

Código: (vb) [Seleccionar]


Dim lColor as Long

Public Property Let Color(ByVal NewColor As Long)
    lColor = NewColor
End Property

Public Property Get Color() As Long
    Color = lColor
End Property


Asi te da error?

[Psyke1]

Gracias...
Peeero, me sigue dando el mismo error o_O
Sinceramente no entiendo porque...
Mira, si hago esto, funciona bien:

Código: (vb) [Seleccionar]

Private lColor                              As Long

Public Sub Color(ByVal NewColor As Long)
    lColor = NewColor
End Sub
DoEvents!¡

[ssccaann43]

Pues entonces posiblemente hay algo mal en la clase y por alguna razón el error apunta allí...!

[LeandroA]

hola usa Set el Let creo que es par objetos no me acuerdo bien ahora para pasarte un ejemplo pero con Set para los colores esta bien.

no entendi mal, con Let esta bien,  esta inicializando la clase???

[Psyke1]

Código: (vb) [Seleccionar]

Private lColor                              As Long

Public Property Set Color(ByVal NewColor As Long)
    Set lColor = NewColor
End Property
Error

Las definiciones de procedimientos de propiedad para la misma propiedad son incoherentes o el procedimiento de propiedad contiene un parametro opcional Paramarray o un parametro set no valido

DoEvents!

[LeandroA]

si modifique mas arriva, y como estas declarando el GET
a mi como puso sscaann me funciona bien

[Psyke1]

Esque no me funciona con Let ni con Set ... 
Y no me es necesario obtener el color con Get (por que tengo que hacer otra propiedad con Get?)
Me sigue sin funcionar... Es extraño...
Voy a seguir probando y os cuento.
Gracias

DoEvents¡!