Option Explicit
 
Private myControls As New Collection
 
Public Sub Add(c As Object)
  myControls.Add c
End Sub
 
Public Function cLeft(Index As Integer) As Single
  cLeft = myControls(Index).Container.Left
End Function
 
Public Function cTop(Index As Integer) As Single
  cTop = myControls(Index).Container.Top
End Function

Option Explicit
Dim myClass As New Class1
 
Private Sub Command1_Click()
  myClass.Add Text1
End Sub
 
Private Sub Command2_Click()
  MsgBox myClass.cLeft(1)
  MsgBox myClass.cTop(1)
End Sub