With Object.Font .Bold = True '加粗 .Name = "微软雅黑" '修改字体 .Underline = True '下划线 End With
Object为你要修改的控件，可以是From,Text1等等，VB6。
