Dim i, x, contador As IntegerfrmNumeros.Cls contador = 0 For i = 1 To 10 frmNumeros.ForeColor = vbBlack x = Int((1 + Rnd * 9)) If x = 3 Then frmNumeros.ForeColor = RGB(255, 0, 0) contador = contador + 1 Else If contador = 2 Then frmNumeros.ForeColor = vbBlack End If End If frmNumeros.Print Str(x) + " "; Next
For ... if (contador >= 2) frmNumeros.ForeColor = negro else frmNumeros.ForeColor = rojo ....
Lo que pides es complicado, por que la propiedad ForeColor de un formulario se aplica a todo el texto.Creo que tendrías que crear labels manualmente y posicionarlos, asignándole el ForeColor que quieras a cada uno. No conozco ninguna manera más fácil de hacer lo que quieres, aunque es posible que exista.En cualquier caso, tu algoritmo es incorrecto, no sé por qué te complicas tanto.Código: [Seleccionar]For ... if (contador >= 2) frmNumeros.ForeColor = negro else frmNumeros.ForeColor = rojo ....De todos modos, VB6 dejó de desarrollarse hace 13 años, dejó de ser soportado por microsoft hace 5, y como entorno de desarrollo es un infierno. ¿Por qué no aprendes mejor .Net?
Lo primero es formular tu algoritmo que te genera los numero aleatorios y despues ponerle el color. Dejame busco un ejemplo solo que sera en VB 2010.