Point line relationship VB source code