Visual Basic 6 - AIUTO SU VB SELECT CASE

Ciao tutti, ho appena iniziato a proggramare in vb, ed oggi dopo aver aperto un programma fatto qualche giorno fa, salvato correttamente, non va più.
Ecco qui il pezzo di programma che non va più, se qualcuno individuasse dei problemi lo ringrazio.
Il problema è che il select case non mi da più il colore da me selezionato.

Dim arVal(4) 

Private Sub Cmdavvio_Click() 



Dim i As Integer 

i = 4 

Select Case colore 

Case rosso 
Lblcolore.Caption = "rosso" 

Case verde 
Lblcolore.Caption = "verde" 

Case bianco 
Lblcolore.Caption = "bianco" 

Case blu 
Lblcolore.Caption = "blu" 

Case viola 
Lblcolore.Caption = "viola" 


End Select 






End Sub 


Private Sub form_load() 

Lblmessaggio.Caption = "ciao " & Frm1.txtuser.Text & ",benvenuto nel portale,la tua password è " & Frm1.Txtpassword.Text & " " & vbCrLf 


loadcombo 





End Sub 






Private Sub loadcombo() 


'Dim arVal(4) 
arVal(0) = "rosso" 
arVal(1) = "verde" 
arVal(2) = "bianco" 
arVal(3) = "blu" 
arVal(4) = "viola" 


CboValfor.AddItem arVal(0), 0 
CboValfor.AddItem arVal(1), 1 
CboValfor.AddItem arVal(2), 2 
CboValfor.AddItem arVal(3), 3 
CboValfor.AddItem arVal(4), 4 


End Sub 

[edit] Usa il tag CODE. [/edit]

molti errori.

Dim arVal(4)

Private Sub Cmdavvio_Click()

Dim i As Integer

i = 4

Select Case colore

Case rosso
Lblcolore.Caption = "rosso"

Case verde
Lblcolore.Caption = "verde"

Case bianco
Lblcolore.Caption = "bianco"

Case blu
Lblcolore.Caption = "blu"

Case viola
Lblcolore.Caption = "viola"

End Select

End Sub

ok c'e` una dichiarazione generale ma non specifichi che cosa deve essere Arval.

nella sub. dichiari una i come integer e la metti a 4. perche`? non c'entra assulotamente nulla col programma.
colore e` una variabile non dichiarata e slegata col resto del programma.
rosso verde viola ecc se non le poni tra virgolette sono variabili e non stringhe. altre 5 variabili non dichiarate.

Private Sub form_load()

Lblmessaggio.Caption = "ciao " & Frm1.txtuser.Text & ",benvenuto nel portale,la tua password è " & Frm1.Txtpassword.Text & " " & vbCrLf

loadcombo

End Sub

vabbeh che c'e` da dire
frm1 puoi ometterlo perche` e` sempre sottointeso, il vbcrlf e` assolutamente inutile perche` e` una label come lo spazio alla fine ma in fondo e` una tua scritta puoi farla come ti pare.
chiamiamo questo fantomatico loadcombo

Private Sub loadcombo()

'Dim arVal(4)
arVal(0) = "rosso"
arVal(1) = "verde"
arVal(2) = "bianco"
arVal(3) = "blu"
arVal(4) = "viola"

CboValfor.AddItem arVal(0), 0
CboValfor.AddItem arVal(1), 1
CboValfor.AddItem arVal(2), 2
CboValfor.AddItem arVal(3), 3
CboValfor.AddItem arVal(4), 4

End Sub 

diamo dei valori a arval (che si scopre essere string) e li aggiungiamo a una combo.
non era piu` facile scrivere
cbovalfor.additem "colore", 0
?
fai un po tu.
cmq il codice e` totalmente slegato da cmdavvio_click. non vedo come abbia potuto anche prima funzionarti..

scusa la mia ignoranza su questo linguaggio ma è il quarto giorno che lo uso,ed arval dove e come dovrei specificarlo?

dim arval(0 to 4) as string