VB中用组合框进行字体和字号变换的代码怎么写

Private Sub Combo1_Click()
Text1.FontName = Combo1.Text

End Sub

Private Sub Combo2_Click() Combo2代表列表框，Click是“单击事件”

Text1.FontSize = Combo2.Text
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "黑体" 常用方法：
Combo1.AddItem "宋体" AddItem // 对象名.AddItem Item [index] //
Combo1.AddItem "隶书" 对象名,是列表框的名称
Combo1.AddItem "华文中宋" Item ， 是一个字符表达式
Combo1.AddItem "方正舒体" index ，表示新增加的列表项在列表中的位置，
Combo1.Text = Combo1.List(0) 如果不写，则添加到列表框的的末尾处 。

Combo2.AddItem 10
Combo2.AddItem 12
Combo2.AddItem 14
Combo2.AddItem 16
Combo2.AddItem 18
Combo2.Text = Combo2.List(0)

End Sub