* 注意：請確保字型庫有【宋體、幼圓、隸書】此三種字型，查詢字型庫的名字是否正確

* 我這個是簡單方法：當然也可以直接呼叫你那幾種字型的option來實現，那樣會更通用些

* 就這樣吧，【optiongroup1】的【chick】加入以下程式碼即可：

* 已除錯透過

do case

Case thisform.optiongroup1.option1.value=1

thisform.text1.fontname="宋體"

Case thisform.optiongroup1.option2.value=1

thisform.text1.fontname="幼圓"

Case thisform.optiongroup1.option3.value=1

thisform.text1.fontname="隸書"

endCase

thisform.text1.refresh