vb里单复选框，单选框：宋体楷体黑体，复选框：粗体斜体下划线，代码怎么写？

Private Sub Check1_Click(Index As Integer)

Select Case Index

Case 0

  Text1FontBold = Check1(Index)Value

Case 1

  Text1FontItalic = Check1(Index)Value

Case 2

  Text1FontUnderline = Check1(Index)Value

End Select

End Sub

Private Sub Form_Load()

Text1Text = "单选与复选框应用"

Text1Alignment = 2

Text1FontSize = 18

End Sub

Private Sub Option1_Click(Index As Integer)

Select Case Index

Case 0

  Text1FontName = "宋体"

Case 1

  Text1FontName = "楷体"

Case 2

  Text1FontName = "黑体"

End Select

End Sub

改成：Label1FontName = IIf(Check1Value = 1, "黑体", "宋体")
FontName 是字体名称
另，设置粗体时：
Label1FontBold = IIf(Check1Value = 1, True, False)

Private Sub Command1_Click()
Dim SZ As Double, ZM As Double, HJ As Double, DX As Integer
DX = Val(Text2Text)
If DX = 0 Then MsgBox "位数不能为0": Exit Sub
If DX > 10 Then DX = 10
SZ = 1: ZM = 1
For X = 0 To DX
For i = 1 To X
    For j = 1 To i
    SZ = SZ  j  '数字0-9的排列有SZ种
    Next j
Next i
For i = 1 To DX - X
    For j = 1 To i
    ZM = ZM  j  '字母a-z的排列有ZM种
    Next j
Next i
Next X
    HJ = SZ  ZM '总的可能
    Text1Text = HJ
End Sub

---