label1.fontbold=iif(check1.value,true,false) 根據check1框的選項來設置label1是否粗體
end sub
private sub option1_click()
'label1.fontsize=16 設置label1字號為16
label1.fontsizs=option1.caption
end sub
private sub option4_click()
label1.fontname="隸書" 設置label1字體為隸書
end sub
各個過程就是響應函數