如何访问属于另一个班级的班级？

Question

请注意这是VB6！ 我有一个名为 Kostenvoranschlag 的班级。 它有一个名为 Positionen 的类的成员数组。

我已经这样声明了

Kostenvoranschlag 级

Private m_Positionen() As position

Public Function Positionen() As position

     Positionen = m_Positionen

End Function 

下课

班级位置

Public Betrag As Currency

下课

以下不编译并抛出“参数数量错误或属性无效”。

Dim k As New kv
kv.Positionen(0).Betrag = 5

我怎样才能从外面访问这个课程？

ps：我也试过这两个版本，但是它们都编译不了：

Friend Function Positionen() As position

     Positionen = m_Positionen

End Function 

Public Property Get Positionen() As position()
    Positionen = m_Positionen
End Property