Syntax: Objekt.HeaderHeight = 22 [Long]
bzw.:Dim ax As VistaListControl Set ax = Me!AX_ListHeader.Object With ax MsgBox "Spalten Höhe: " & .HeaderHeight, vbInformation .HeaderHeight = .HeaderHeight + 1 End With Set ax = NothingMsgBox "Spalten Höhe: " & Me!AX_ListHeader.HeaderHeight, vbInformation