将对象传递给另一个对象

Question

如果我在object1中使用object2，最好是传递object1 ByRef，那么我可以使用Object1的属性吗？或者，有没有更好的方法在两者之间传递数据？这是一个例子：

Class Object1

private m_width as integer

Public Sub1()
    dim newObj2 as new Object2(Object1)
End Sub

End Class

或者我唯一的方法就是这样：

Class Object1

private m_width as integer

Public Sub1()
    dim newObj2 as new Object2()
    nexObj2.width = m_width
End Sub

End Class

如果我这样做第二种方法并且我有很多属性，那么它似乎打败了目的？