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

Private Sub Check1_Click(Index As Integer)

  Select Case Index

  Case 0

    Text1.FontBold = Check1(Index).Value

  Case 1

    Text1.FontItalic = Check1(Index).Value

  Case 2

    Text1.FontUnderline = Check1(Index).Value

  End Select

End Sub

Private Sub Form_Load()

  Text1.Text = "单选与复选框应用"

  Text1.Alignment = 2

  Text1.FontSize = 18

End Sub

Private Sub Option1_Click(Index As Integer)

  Select Case Index

  Case 0

    Text1.FontName = "宋体"

  Case 1

    Text1.FontName = "楷体"

  Case 2

    Text1.FontName = "黑体"

  End Select

End Sub