Question

VB里字体的各种效果的代码实现方法，例如加粗，改字体，加/取消下划线。

VB6.0

Answer 1

    With Object.Font
        .Bold = True '加粗
        .Name = "微软雅黑" '修改字体
        .Underline = True '下划线
    End With

 Object为你要修改的控件，可以是From,Text1等等，VB6。