Public Structure OTValues
    Dim X As Single
    Dim Y As Single
    Dim Z As Single
 
    Sub New(ByVal X As Single, ByVal Y As Single, ByVal Z As Single)
        Me.X = X
        Me.Y = Y
        Me.Z = Z
    End Sub
End Structure
-> Das geht
 
Public Enum OTs
    Obj1 = New OTValues(5, 3, 4)
    Obj2 = New OTValuew(4, 6, 7)
    ...
End Enum
-> Das geht nicht
...
Dim XYZ As OTs
XYZ = OTs.Obj2
MsgBox(XYZ.X.ToString)
...
-> So solls gehen

Patrick Gr?schel
pgroe@web.de