《 Visual basic程序设计》精品课程电子教案 Labell Fontsize =10 Labell ForeColor bRed End sub Private Sub Checkl Click If Check Value 1 Then abell. Font bold true Labe ll Font Bold False End if End sub Private Sub Check2 Click O If Check2 Value =1 Then Labell. fontitalic true Labell. Fontitalic False End if End sub Private Sub Optionl Click Labell Fontsize =10 End sub《Visual Basic 程序设计》精品课程电子教案 6 Label1.FontSize = 10 Label1.ForeColor = vbRed End Sub Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub Private Sub Option1_Click() Label1.FontSize = 10 End Sub