Dim fnt As New Font("宋体",12,FontStyle.Bold Or FontStyle.Underline)Return (fnt.Style And FontStyle.Bold) = FontStyle.Bold