* Polymorphic Struct [#xf486176] Sub CreatePolymorphicStruct aOptional = CreateUnoStruct("com.sun.star.beans.Optional<long>") aOptional.Value = 1000 msgbox aOptional.Value End Sub