Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo escribir código para mostrar gráficos (diamantes) en formato vb?

¿Cómo escribir código para mostrar gráficos (diamantes) en formato vb?

Private Sub Form_Click()

Atenuar el ancho el mismo tiempo

Atenuar la altura el mayor tiempo

Atenuar la izquierda el mayor tiempo

Atenuar lTop mientras

Atenuar iRow como entero

Atenuar i como entero

Atenuar iColor como entero

Me.Font. Tamaño = 12

lAncho = Me.TextWidth("*")

lAlto = Me.TextHeight("*")

iColor = 1

Me.Cls

Me.AutoRedraw = True

Para iRow = 1 a 6

lTop = lHeight * iRow + 60

lIzquierda = lAncho * (6 - iRow) / 2 + 60

Para i = 1 a iRow

lIzquierda = lIzquierda + lAncho

Yo. CurrentY = lTop

Me.CurrentX = lLeft

iColor = iColor + 1

Si iColor > 14 Entonces iColor = 1

Yo .ForeColor = QBColor(iColor)

Imprimir "*"

Para iRow = 7 a 11

lArriba = lAlto * iRow + 60

lIzquierda = lAncho * (iRow - 6) / 2 + 60

Para i = 1 a 12 - iRow

lLeft = lLeft + lWidth

Me.CurrentY = lTop

Me.CurrentX = lLeft

iColor = iColor + 1

Si iColor > 14 Entonces iColor = 1

Me.ForeColor = QBColor(iColor)

Imprimir "*"

Fin Sub