FreeVBCode code snippet: A Line Object Class