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

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

是comboBOX

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