与百例79-80例相类似

Option Explicit
Private Sub chk1_Click()
If chk1.Value = 1 Then '若复选框chk1的值为1
Label2.FontUnderline = True '标签框中的文字加下划线
Else '否则
Label2.FontUnderline = False '标签框中的文字不加下划线
End If
End Sub

Private Sub chk2_Click()
If chk2.Value = 1 Then
Label2.FontStrikethru = True
Else
Label2.FontStrikethru = False
End If

End Sub
Private Sub Command1_Click()
cdl1.ShowFont
'打开“字体”对话框
Label2.Font = cdl1.FontName
'标签框中文字的字体是“字体”对话框中所选择的字体
Label2.FontBold = cdl1.FontBold
'标签框中文字的字体是否加粗显示“字体”对话框中所选择的字体
Label2.FontItalic = cdl1.FontItalic
'标签框中文字的字体是否倾斜“字体”对话框中所选择的字体
End Sub