VB可通过FontBold、FontItalic、FontStrikethru、FontUnderline 属性等。
返回或设置字体样式为粗体、斜体、删除线或下划线。
通过Font 属性来设置字体。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontUnderline = False
Label1.FontSize = 9
Label1.Font = "宋体"
Label1.FontSize = 15
Label1.FontUnderline = True
Label1.Font = "黑体"