A.FontBold B.FontItalic C.FontUnderline D.FontStrikethru
A.SelStart B.SelText C.SelLength D.Value
A.THISFORM.Check1.Caption="婚否" B.THISFORM.Check1.Value="婚否" C.THISFORM.Check1.Name="婚否" D.THISFORM.Check1.Visible="婚否"