color aleatorio

Question

hola, estoy realizando un ejercicio donde tengo que entrar caracteres por pantalla i deben aparecer con colores aleatories es decir cada caracter introducido de un color diferente.

Tengo el programa empezado, pero no funciona, si alguien me pudiera dar una ayuda de como crear colores aleatorios..

GRACIAS!!

las palabras subrayadas son errores.
no estoy seguro de que este metodo sea el mas  eficiente si alguien tiene a mano otro, seria de gran ayuda

Module Module1

    Sub Main()

        Dim var As Integer
        Dim coloraleatori As Long
        var = 1

        While var = 1
            [u]coloraleatorio = CInt(Int((10 * Rnd())(+1)))[/u]
            Console.ForegroundColor =[u] coloraleatorio[/u]
            Console.Read()

        End While

        Console.Read()
    End Sub

End Module

Answer 1

Public Function RandomRGBColor() As Long
    RandomRGBColor = RGB( _
        Int(Rnd() * 256), _
        Int(Rnd() * 256), _
        Int(Rnd() * 256))
End Function

Esta función te devuelve colores aleatorios...

---

Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

Answer 2

Hola, te sirvió el código??

---

Si se solucionó tu consulta no olvides marcar la respuesta. Saludos