求vb代码！！！！！！

Private Sub Check1_Click()
    If Checkl .Value = 1 Then
        Textl.FontName = "楷体 _GB2312” Else
        TextLFontName = "宋体”
    End If
End Sub
Private Sub Check2_Click()
    If Check2.Value = 1 Then
        Textl.Fontltalic = True
    Else
        Textl.Fontltalic = False
    End If
End Sub
Private Sub Check3_Click()
    If Check3.Value = 1 Then
        Textl.FontSize = 25
    Else
        Textl.FontSize = 9
    End If
End Sub

Private Sub Check4_Click()
    If Check4.Value = 1 Then        
        Textl.ForeColor = RGB(255, 0, 0)‘红色 Else
        Textl.ForeColor = RGB(0, 0, 0)，黑色 End If
End Sub