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??