源代码如下:
Private Sub Check2_Click()
IfCheck2.Value = 0 Then
Label1.FontStrikethru = False
Else
Label1.FontStrikethru = True
End If
End Sub
Private Sub Option1_Click()
Label1.FontName= "宋体"