新手求教有关组合框的问题

[megastephtr]

Private Sub Combo1_Change()
Label1.FontSize = Val(Combo1.Text)
End Sub

Private Sub Combo2_Change()

Label1.FontName = Combo2.Text
End Sub

Private Sub Form_Load()
Combo2.AddItem "宋体"
Combo2.AddItem "幼圆"
Combo2.AddItem "黑体"
End Sub

form上有一个标签两个组合框

在combo1中选择一个字号，在combo2中选择一个字体，则标签中的字变为相应字号和字体

为什么我这样做不对？
怎么选都没有反应

[maby_]

Private Sub Combo1_click()
Label1.FontSize = Val(Combo1.Text)
End Sub

Private Sub Combo2_click()

Label1.FontName = Combo2.Text
End Sub

Private Sub Form_Load()
Combo1.AddItem "9"
Combo1.AddItem "11"
Combo1.AddItem "16"
Combo1.AddItem "24"

Combo2.AddItem "宋体"
Combo2.AddItem "幼圆"
Combo2.AddItem "黑体"
End Sub

[of123]

Private Sub Combo1_click()
Label1.FontSize = Val(Combo1.Text)
End Sub

Private Sub Combo2_click()

Label1.FontName = Combo2.Text
End Sub

Private Sub Form_Load()
Combo1.AddItem "9"
Combo1.AddItem "11"
Combo1.AddItem "16"
Combo1.AddItem "24"

Combo2.AddItem "宋体"
Combo2.AddItem "幼圆"
Combo2.AddItem "黑体"
End Sub

[megastephtr]

谢谢大家的热心帮忙啊