;;program pochodzi z http://republika.pl/kojacek
(vl-load-com)

(defun vba:bkgColor (Color /)
  (vla-eval
    (vlax-get-acad-object)
    (strcat "AutoCAD.Application.Preferences"
            ".Display.GraphicsWinModelBackgrndColor="
            Color
    )
  )
)