VB imprime un triángulo compuesto de asteriscos y establece el color de primer plano y el color de fondo

'Primero cree un cuadro de imagen Imagen1 y luego reemplace el Command1_click() original con el siguiente programa

Private?Sub?Command1_Click()

Picture1.Cls

r ?=?1

¿Hacer?Mientras?r?lt;=?5

c?=?10?-?r

s?= ?1

Hacer?Mientras?s?lt;=?2?*?r?-?1

Imagen1.Imprimir?Tab(s? ?c);?"* ";

s?=?s? ?1

Bucle

r?=?r? ?1

Bucle

¿Fin?