VB中一个关于COMBO BOX控件的小问题

现在想实现一个效果，比如现在有两个控件，一个LABEL1一个是COMBO1
然后我想让COMBO1里面的内容改变时，LABEL1的CAPTION属性也跟着变，现在COMBO1里面有三个内容：1 2 3
然后我想在COMBO1选1时，LABEL显示的内容改变。比如变成"东风"

---

Private Sub Combo1_Click()
If Combo1.Text = 1 Then
Label1.Caption = "拍肆睁东风"
ElseIf Combo1.Text = 2 Then
Label1.Caption = "雹烂西风袭岁"
ElseIf Combo1.Text = 3 Then
Label1.Caption = "东风西风"
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem 1
Combo1.AddItem 2
Combo1.AddItem 3
End Sub

---