Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
T1.Font.Size = 10
Case 1
T1.Font.Size = 20
Case 2
T1.Font.Size = 30
Case 3
T1.Font.Size = 40
End Select
End Sub
vb设计帮实现