VBä¸ç¨ä»£ç æ¹å¼ç»æåæ·»å ä¸å线åå é¤çº¿ï¼ä»£ç å¦ä¸ï¼
//Underlineå±æ§æ·»å ä¸å线
Private Sub Check1_Click()
Label1.Font.Underline = IIf(Check1.Value = vbChecked, True, False)
End Sub
//Strikethroughå±æ§æ·»å å é¤çº¿
Private Sub Check2_Click()
Label1.Font.Strikethrough = IIf(Check2.Value = vbChecked, True, False)
End Sub