Syntax: Objekt.ShowAboutBox
Dim ax As idbeShapeCrtl Set ax = Me!AX_Shape.Object With ax .ShowAboutBox End With Set ax = Nothing bzw.: Me!AX_Shape.ShowAboutBox
Dim ax As idbeShapeCrtl Set ax = Me!AX_Shape.Object With ax .ShowAboutBox End With Set ax = Nothing
Me!AX_Shape.ShowAboutBox