[VB6] Label

[tarantino]

Salve a tutti, avrei bisogno di un aiutino.
Io ho nel mio form 10 label piccoline a forma di quadrato perche'sto cercando di creare una mappa di una sala server,poi ho una text dove io inserisco il nome di un server e cliccando su un pulsnate mi va ad illuminare la label che io voglio far corrispondere al server:es digito il server nella text tipo "server1" poi clicco sul pulsante e mi si illumina la label ad esempio in alto a destra ok? il programma funziona per come l'ho detto a voi perche' faccio semplicemente delle if del tipo if label2.backcolor=grigio and text=server1 then
label2.backcolor=green else
label2.backcolor=grigio, in questo modo la label lampeggia anche perche' ho messo un timer.Come faccio a scrivere il codice in modo che non debba ripetere x 10 volte if if if if if ecc cioe' a scriverlo una sola volta?
se non avete capito cosa ho detto sono a disposizione.
grazie

[Luciano79]

Come prima cosa ti conviene indicizzare le label, quindi non Label1.BackColor o Label2.BackColor, ma LabelServer(1).BackColor e LabelServer(2).BackColor.
Poi associa una variabile che contiene il nome del server per ogni label

  Dim NomiServer() As String = {"Srv1", "SrvPippo", "SrvXXX"...)

Quindi alla LabelServer(0) corrisponde Srv1, alla LabelServer(1) corrisponde SrvPippo, ecc...
Quando premi il tasto

 Dim i as Integer
 Sub TastoOk_Click (...)
    For i = 0 to 9
       If NomiServer(i) = Testo.Text Then
          Exit For
          Timer1.Enable = True
       End If
    Next i
 End Sub

 Sub Timer1_Clock()
    If LabelServer(i).BackColor = VarGrigio Then
       LabelServer(i).BackColor = VarGrigio
    Else
       LabelServer(i).BackColor = VarVerde
    End If
 End Sub

In poche parole trovi l'indice della label corrispondente al server e col timer fai lampeggiare la label dell'indice "i" appena trovato

[Luciano79]

Pardon... inverti VarGrigio e VarVerde