例】在窗体上先画两个图片框Picture1和Picture2，在Picture1中放四个选项按钮Option1(0)、Option1(1)、Option1(2)和Option1(3)（注意，移动图片框时选项按钮应能与图片框一起移动）；设置各个选项按钮的Style属性为1-Graphical，使它们成为按钮的形状；修改各个选项按钮的Caption属性，使它们分别为“宋体”、“楷体”、“黑体”和“隶书”；在Picture2中放四个复选框Check1(0)、Check1(1)、Check1(2)和Check1(3)（注意，移动图片框时复选框应能与图片框一起移动）；设置各个复选框的Style属性为1-Graphical，使它们成为按钮的形状；修改各个复选框的Caption属性，使它们分别为“粗体”、“斜体”、“删除线”和“下划线”，如下图所示。
图 设置文字的字体、样式和效果
编写程序，单击选项按钮可以改变文本框中文字的字体，选择复选框中的选项可以对文本框中的文本同时设置（或取消）1～4种文字的样式或效果。
程序源码：
' 设置文本框中文字的字体
Private Sub Option1_Click(Index As Integer)
If Index = 0 Then ' 单击“宋体”选项按钮
Text1.FontName = "宋体"
ElseIf Index = 1 Then
Text1.FontName = "楷体"
ElseIf Index = 2 Then
Text1.FontName = "黑体"
ElseIf Index = 3 Then
Text1.FontName = "隶书"
End If
End Sub
' 设置文本框中文字的样式
Private Sub Check1_Click(Index As Integer)
If Index = 0 Then ' 选择“粗体”复选按钮
Text1.FontBold = Check1(0).Value
ElseIf Index = 1 Then ' 选择“斜体”复选按钮
Text1.FontItalic = Check1(1).Value
ElseIf Index = 2 Then ' 选择“删除线”复选按钮
Text1.FontStrikethru = Check1(2).Value
ElseIf Index = 3 Then ' 选择“下划线”复选按钮
Text1.FontUnderline = Check1(3).Value
End If
End Sub