将对象传递给另一个对象

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

如果我用第二种方法做并且我有很多特性，那么它似乎无法达到目的？