如图，我想通过选择组合框里的数字来改变字体大小，程序如下，但是运行不了？新手请教。
Private Sub Combo1_change()
Text1.FontSize = Val(Combo1.Text)
End Sub

Text1.Font.Size = Val(Combo1.Text)

试了还是不行，只有组合框里输入数字的时候可以改变他字体大小，但是用选取的方法没有改变？

它的事件你搞错了，是click事件，不是change事件

Private Sub Combo1_Click()
   Text1.Font.Size = Combo1.Text
End Sub
我试了可以改变的

[ 本帖最后由 chen3523 于 2013-9-12 17:15 编辑 ]

这个就要具体问题具体分析了

你确定那是ComboBox 而不是 ListBox ？

当代码像这样的时候
Private Sub Combo1_Change()
Text1.FontSize = Val(Combo1.Text)
End Sub
是在combo1中输入数字，text1的字体大小改变

当代码是这样时
Private Sub Combo1_Click()
Text1.FontSize = Val(Combo1.Text)
End Sub
是用选择的方法改变text1.fontsize

是comboBOX

是的，但我要实现两种方式都能改变，应该怎么写？