简单vb程序改错

我来说说吧，你这个程序太乱了，是用VBE，还是VBA编的吧，但是代码却是乱用了VB的。滚动条的名称都对应不起来。还有VBA里不是用userform_load来初始化的，是用userform_Initialize.代码改过来了。

Private Sub ComboBox1_Change()
TextBox1.Font.Name = ComboBox1.Text ' 把组合框的字体名赋给textbox
End Sub

Private Sub ScrollBar1_Change()
TextBox1.Font.Size = ScrollBar1.Value ' 把滚动条的字体大小赋给textbox
Label4.Caption = Str$(ScrollBar1.Value) ' 把滚动条的字体大小赋给label4
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "宋体"
ComboBox1.AddItem "黑体"
ComboBox1.AddItem "隶书"
ComboBox1.AddItem "幼圆"
ScrollBar1.Min = 8: ScrollBar1.Max = 72
End Sub

你复制运行一下，程序里的控件名要和你窗体上控件名完全一致。 我运行了一下，貌似没问题。

一眼看去没有错，就是应该把注释前加上一个单引号‘

个人认为你的程序没问题，请再发几张程序运行图！

you cuo ?
哪错？