Syntax: Objekt.RowWidth (index) = 100 [Long]
Dim ax As XPListControl Set ax = Me!AX_ListHeader.Object With ax .RowWidth(.SelectedRow) = 100 End With Set ax = Nothing