Class2的VBA Excel属性作为Class1中的对象

我正在努力使用VBA类模块使其正常工作

第一类模块是tDate

'--- Class1 tDate
Public d as Integer
Public m as Integer
Public y as Integer
'--- some get/let properties for d,m,y

第二类模块是tRate

'--- Class2 tRate
Public pDate1 as New tDate
Public dValue as Double
'--- Now i'm trying to code properties 

Public Property Get FirstDate() As tDate
    FirstDate = pDate1
End Property

Public Property Set FirstDate(vDate As tDate)
    pDate1 = vDate  ' <----  ???
End Property

这里也是：

 Set r1.FirstDate = myDate

---

使用

Set

将对象分配给变量

Set r1.FirstDate = myDate

---

谢谢塞格！你是对的。我将使用

Set

everywhere:Public Property Get FirstDate（）作为tDate Set FirstDate=pDate1 End属性Public Property Set FirstDate（vDate作为tDate）Set pDate1=vDate End属性，这里也使用Set r1.FirstDate=myDate

 Set r1.FirstDate = myDate

Set r1.FirstDate = myDate