Coordenada plana posicionamiento bidimensional vb o vb.net

Coloque un cuadro de texto, dos líneas y una etiqueta en el formulario, pegue el código y ejecútelo, luego verá el efecto

'****************** ** ************************************************* *** *******

'**' Nombre del proyecto: Coordenadas del plano

'** Descripción: Bird Studio Copyright 2007 - 2008(C)1

'** Creador: Autumn Beacon

'** Fecha: 2007-12-18 14:08:15

'** Versión: V1.0.0

'********** ********************************** * **************************

DIPITCH constante = 300 'Distancia de puntos

Dim WithEvents oControlx1 Como Línea

Atenuar WithEvents oControlx2 Como Línea