Type Punt in een collection plaatsen kan dat? het lukt me niet

[sylvester-ponte]

in een module probeer ik een punt in een collection te plaatsen
dit staat in de module1 zie code
als ik test probeer te runnen gaat het mis
wie weet hoe dat wel moet

Type Punt
    X As Integer
    Y As Integer
End Type
Sub test()
    Dim Col As New Collection
    Dim p1 As Punt
    p1.X = 5
    p1.Y = 6
    Col.Add p1
End Sub

groet sylvester

 

[Wigi]

Bedoel je dit?

Type Punt
    X As Integer
    Y As Integer
End Type

Sub test()
    Dim Col As New Collection
    Dim p1 As Punt
    p1.X = 5
    p1.Y = 6
    Col.Add p1.X
    
    For Each q In Col
        MsgBox q
    Next
    
End Sub

 

[sylvester-ponte]

hallo Wigi

dat is niet de bedoeling

de bedoeling is, als er punten aan de collectie zijn toe gevoegd dan kan ik de punten zo benaderen:
Ax=col(1).X
Ay=col(1).Y

of
col(1).X=5
col(1).Y=6

enz

groet sylvester

 

[WHER]

En op deze manier?

Type Punt
    arr(0 To 1) As Variant
   
End Type
Sub test()
    Dim Col As New Collection
    Dim p1 As Punt
   
    p1.arr(0) = 5
    p1.arr(1) = 6
    Col.Add p1.arr
    For Each q In Col
        MsgBox q(0)
        MsgBox q(1)
    Next
    
End Sub

 

[sylvester-ponte]

hallo WHER

het gaat mij er om uit te vinden of een Type variabele (bv punt) direct in een collection is te plaatsen

als ik Punt als Klasse definieer lukt het wel

maar dat is onhandig als iemand een voorbeeld met een klasse krijgt moet hij om het in zijn eigen situatie te kunnen gebruiken
ook een klasse module aan maken of de klasse importeren .

dit wil ik omzeilen met Type, omdat kan in de zelfde module.

groet sylvester