Lalbel: valore da associare

[cla80]

Vorrei associare una stringa ad una label sotto derivazione di un altra label:
ossia ho il label dove vi sono solo numeri che cambiano fino a 10 e se nel lblCod.caption=4 allora lblTipo.caption="IR1"

Ho fatto questo ma non funziona:

Private Sub Form_Load()
Select Case i
Case 0
lblTipo.Caption = "IR1"
Case 1
lblTipo.Caption = "IR2"
Case 2
lblTipo.Caption = "IR3"
Case 3
lblTipo.Caption = "IR4"
Case 4
lblTipo.Caption = "IR5"
Case 5
lblTipo.Caption = "IR6"
Case 6
lblTipo.Caption = "IR7"
Case 7
lblTipo.Caption = "IR8"
Case 8
lblTipo.Caption = "IR9"
Case 9
lblTipo.Caption = "IR10"
Case 10
lblTipo.Caption = "IR11"
end select
end Sub

come mai??

[xegallo]

Originariamente inviato da cla80
Vorrei associare una stringa ad una label sotto derivazione di un altra label:
ossia ho il label dove vi sono solo numeri che cambiano fino a 10 e se nel lblCod.caption=4 allora lblTipo.caption="IR1"

Ho fatto questo ma non funziona:

Private Sub Form_Load()
Select Case i
Case 0
lblTipo.Caption = "IR1"
Case 1
lblTipo.Caption = "IR2"
Case 2
lblTipo.Caption = "IR3"
Case 3
lblTipo.Caption = "IR4"
Case 4
lblTipo.Caption = "IR5"
Case 5
lblTipo.Caption = "IR6"
Case 6
lblTipo.Caption = "IR7"
Case 7
lblTipo.Caption = "IR8"
Case 8
lblTipo.Caption = "IR9"
Case 9
lblTipo.Caption = "IR10"
Case 10
lblTipo.Caption = "IR11"
end select
end Sub

come mai??

che valore ha i e da dove lo prende

[cla80]

lo prende da un label.

[xegallo]

a me funziona se passo il valore a i prima della select

ma non facevi prima a scrivere
lblTipo.caption = "IR" & cint(lblCod.caption + 1)