vb的顯示字體

Question

當我選取了checkbox的粗體選項
按了執行按鈕後
要讓text box裡的字變成粗體
這要程式怎麼寫呢?
還有斜體和加底線
謝謝^^

還有這一個→表單第一次出現的位置需設於螢幕中央

Answer 1

Private Sub Check1_Click()
Text1.FontBold = Check1.Value '粗體
Text1.FontItalic = Check1.Value '斜體
Text1.FontUnderline = Check1.Value '底線
End Sub
表單第一次出現的位置需設於螢幕中央:設計表單時將StartUpPosition屬性設為2

Answer 2

Private Sub Command1_Click() '執行
　If Check1.Value=1 Then'粗體
　　Text1.FontBold=True
　Else
　　Text1.FontBold=False
　End If
　If Check2.Value=1 Then'斜體
　　Text1.FontItalic=True
　Else
　　Text1.FontItalic=False
　End If
　If Check3.Value=1 Then'底線
　　Text1.FontUnderline=True
　Else
　　Text1.FontUnderline=False
　End If
End Sub