Private Sub Option1_Click(Index As Integer)
Select Case ______
C.ase 0
a = "宋体"
C.ase 1
a = "黑体"
C.ase 2
a = "楷体_GB2312"
E.nd Select
text1. ______ =a
E.nd Sub