caseについての質問です
comboboxが100項目近くあり、そのひとつひとつのcomboboxで選ばれたものに対して
1番目ならlabel1に0と表示、2場目ならlabel1に1と表示・・・とやりたいのですが

Select Case Combo1.ListIndex
Case 0
label1.Caption = 0
Case 1
label1.Caption = 1
Case 2
labe1.Caption = 2
とずっと続けると異常に長くなってしまうので、何か別の書き方はないでしょうか?