呆呆的問題(編號：6963)

在我的程式中，我想讓一個textbox中的文字可以隨字體變化！換成粗體、斜體、底線！我的程式碼中是如下：
我不知道要加什麼指令！還是我設錯了！請各位教教我吧！
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Label1.Font.Bold = True
Else
Label1.Font.Bold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = vbChecked Then
Label1.Font.Italic = True
Else
Label1.Font.Italic = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = vbChecked Then
Label1.Font.Underline = True
Else
Label1.Font.Underline = False
End If
End Sub
Private Sub Command1_Click()
Text2.Text = Text1.Text
End Sub
Private Sub Command2_Click()
Text1.Text = Text2.Text
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
POEM = ""
Label1 = Caption = POEM
End Sub