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

Question

Private Sub Combo1_Change()
Label1.FontSize = Val(Combo1.Text)
End SubPrivate Sub Combo2_Change()Label1.FontName = Combo2.Text
End SubPrivate Sub Form_Load()
Combo2.AddItem "宋体"
Combo2.AddItem "幼圆"
Combo2.AddItem "黑体"
End Subform上有一个标签两个组合框在combo1中选择一个字号，在combo2中选择一个字体，则标签中的字变为相应字号和字体为什么我这样做不对？
怎么选都没有反应

Answer 1

Private Sub Combo1_click()
Label1.FontSize = Val(Combo1.Text)
End SubPrivate Sub Combo2_click()Label1.FontName = Combo2.Text
End SubPrivate Sub Form_Load()
Combo1.AddItem "9"
Combo1.AddItem "11"
Combo1.AddItem "16"
Combo1.AddItem "24"Combo2.AddItem "宋体"
Combo2.AddItem "幼圆"
Combo2.AddItem "黑体"
End Sub

Answer 2

Private Sub Combo1_click()
Label1.FontSize = Val(Combo1.Text)
End SubPrivate Sub Combo2_click()Label1.FontName = Combo2.Text
End SubPrivate Sub Form_Load()
Combo1.AddItem "9"
Combo1.AddItem "11"
Combo1.AddItem "16"
Combo1.AddItem "24"Combo2.AddItem "宋体"
Combo2.AddItem "幼圆"
Combo2.AddItem "黑体"
End Sub