关于VB中select 问题

关于VB中select语句的问题
Select Case Index
Case 2
Text1.FontBold = Check1.Value
Case 3
Text1.FontItalic = Check1.Value
Case 4
Text1.FontUnderline = Check1.Value
Case 5
Text1.FontStrikethru = Check1.Value
End Select

运行结果提示 ：未找到编译方法或数据成员
问题补充：Private Sub Check1_Click(Index As Integer)
Select Case Index
Case 2
Text1.FontBold = Check1(Index).Value
Case 3
Text1.fontltalic = Check1(Index).Value
Case 4
Text1.FontUnderline = Check1(Index).Value
Case 5
Text1.FontStrikethru = Check1(Index).Value

End Select
End Sub
我在创建 CHECK的时候是个控件组 你们说的方法还不是行呢！
这是代码

我把check放到frame里面的哦！

关于VB中select 问题 关于VB中select语句的问题 vb中关于select case的问题 vb 中 SQL的select 语句问题 vb中SELECT CASE语法问题 vb select查询问题 vb select like 问题 VB编程 select case问题 关于Select 的问题 关于select 的问题