[VB8]Aiuto per fixare funzione di controllo

[kerberos5]

Asp! non devo randomizzare i colori devo randomizzare il numero delle label da colorare... mi sto impiccando... in pratica sono arrivato a questo....

    Public Sub RandomColor()
        Const N As Integer = 23
        Static V(0 To N) As Integer 'vettore
        Dim numero As Integer

        Dim x() As Object = {lblA, lblB, lblC, lblD, _
        lblE, lblF, lblG, lblH, lblI, _
        lblL, lblM, lblN, lblO, lblP, _
        lblQ, lblR, lblS, lblT, lblU, _
        lblV, lblW, lblX, lblY, lblZ}

        numero = 1 <= V(N)
        For q As Integer = 0 To numero
            x(q).ForeColor = Color.Red
        Next q

    End Sub

Ma si colora di rosso sola la prima! io vorrei che scegliesse 5 etichette in maniera casuale e le colorasse di rosso.. O_0'

sto cercando spundo da qui

grazie 1000