Imprimir paralelogramo en vb

Cópielo en el código del formulario, ejecútelo, haga clic en el formulario para ver el efecto:

Private?Sub?Form_MouseDown(Button?As?Integer,?Shift?As?Integer ,? X?As?Single,?Y?As?Single)

Dim?Count?As?Integer

Count?=?10?' p>

¿Para?i?=?1?Para?Contar

Si?i?=?1?O?i?=?Contar?Entonces

Yo.Imprimir ?Espacio( ¿Contar?-?i)?amp;?"*********"

Else

Yo.Imprimir?Espacio(Contar?-?i) ?amp; ?"*?*"

¿Fin?Si

Siguiente?i

Fin?Sub