PrivateSubCombo1_Click()

Text1.FontName=Combo1.Text

EndSub

PrivateSubCombo2_Click()Combo2代表列表框，Click是“單擊事件”

Text1.FontSize=Combo2.Text

EndSub

PrivateSubCommand2_Click()

UnloadMe

EndSub

PrivateSubForm_Load()

Combo1.AddItem"黑體"常用方法：

Combo1.AddItem"宋體"AddItem//對象名.AddItemItem[index]//

Combo1.AddItem"隸書"對象名,是列表框的名稱

Combo1.AddItem"華文中宋"Item，是一個字符表達式

Combo1.AddItem"方正舒體"index，表示新增加的列表項在列表中的位置，

Combo1.Text=Combo1.List(0)如果不寫，則添加到列表框的的末尾處。

Combo2.AddItem10

Combo2.AddItem12

Combo2.AddItem14

Combo2.AddItem16

Combo2.AddItem18

Combo2.Text=Combo2.List(0)

EndSub