Fehler im Debugger bei Anzeige von "Type"?

[ush189]

Ich hab folgenden Code:

Code: Alles auswählen

Type Metadata
	docTitle As String
	docDescription As String
	docLanguage As String
	docKeywords As String
	docAuthors As String
	docCopyright As String
End Type

Sub test
	Dim oMetadata as Object
	oMetadata = CreateObject("Metadata")
End Sub

In der Zeile mit CreateObject habe ich ´nen Haltepunkt gesetzt und "oMetadata" als Beobachter unten in der Liste.
Mach in nun einen "Step into" wird oMetadata ja erzeugt und ich kann es unten in der Liste aufklappen.
Dort stehen dann aber nur docTitle, docDescription und docLanguage jeweils als leerer String drin. Der Rest nicht.
Lösch ich eine Zeile, dann stehen nur noch die ersten beiden Werte drin.

Und das nicht nur bei dieser Type-Definition, sondern bei allen! Immer fehlen die letzten drei.
Ist das nur bei mir so? Und wenn ja, warum?

[komma4]

also: der Beobachter ist IMHO schrottig.

und: ich erzeuge solche Strukturen mit DIM oMetadata as Metadata, und lasse mit dann die einzelnen Elemente mit PRINT oMetadata.docTitle anzeigen.

Lustig: die gleiche Struktur habe ich heute morgen hier programmiert

HTH