【VB开源代码栏目提醒】：网学会员VB开源代码为您提供option.frm参考，解决您在option.frm学习中工作中的难题，参考学习。

    VERSION 5.00
    Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
    Begin VB.Form Form1 
       BorderStyle     =   1  'Fixed Single
       Caption         =   "OptionButton"
       ClientHeight    =   5040
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   6570
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   5040
       ScaleWidth      =   6570
       StartUpPosition =   1  '所有者中心
       Begin RichTextLib.RichTextBox RichTextBox1 
          Height          =   3615
          Left            =   0
          TabIndex        =   4
          Top             =   0
          Width           =   6495
          _ExtentX        =   11456
          _ExtentY        =   6376
          _Version        =   393217
          Enabled         =   -1  'True
          ScrollBars      =   2
          TextRTF         =   $"option.frx":0000
       End
       Begin VB.Frame Frame1 
          Caption         =   "改变字体操作"
          BeginProperty Font 
             Name            =   "楷体_GB2312"
             Size            =   14.25
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          ForeColor       =   &H00C0C000&
          Height          =   1095
          Left            =   120
          TabIndex        =   0
          Top             =   3720
          Width           =   6375
          Begin VB.OptionButton Option4 
             Caption         =   "黑体"
             BeginProperty Font 
                Name            =   "楷体_GB2312"
                Size            =   12
                Charset         =   134
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   375
             Left            =   5160
             TabIndex        =   5
             Top             =   480
             Width           =   1095
          End
          Begin VB.OptionButton Option3 
             Caption         =   "幼圆"
             BeginProperty Font 
                Name            =   "楷体_GB2312"
                Size            =   12
                Charset         =   134
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   375
             Left            =   3520
             TabIndex        =   3
             Top             =   480
             Width           =   1095
          End
          Begin VB.OptionButton Option2 
             Caption         =   "隶书"
             BeginProperty Font 
                Name            =   "楷体_GB2312"
                Size            =   12
                Charset         =   134
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   375
             Left            =   1880
             TabIndex        =   2
             Top             =   480
             Width           =   1095
          End
          Begin VB.OptionButton Option1 
             Caption         =   "宋体"
             BeginProperty Font 
                Name            =   "楷体_GB2312"
                Size            =   12
                Charset         =   134
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             Height          =   375
             Left            =   240
             TabIndex        =   1
             Top             =   480
             Width           =   1095
          End
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    '初始化文本框和单选按钮
    Private Sub Form_Load()
        RichTextBox1.LoadFile (App.Path & "/诗歌.rtf")
        Option1.Value = False
        Option2.Value = False
        Option3.Value = False
        Option4.Value = False
    End Sub
    '使文字字体变为宋体的单选按钮单击事件
    Private Sub Option1_Click()
        Option1.Value = True '置单选按钮的Value属性值为True
        RichTextBox1.Font = "宋体" '置文本框中文本字体为宋体
    End Sub
    '使文字字体变为隶书的单选按钮单击事件
    Private Sub Option2_Click()
        Option2.Value = True '置单选按钮的Value属性值为True
        RichTextBox1.Font = "隶书" '置文本框中文本字体为隶书
    End Sub
    '使文字字体变为幼圆的单选按钮单击事件
    Private Sub Option3_Click()
        Option3.Value = True '置单选按钮的Value属性值为True
        RichTextBox1.Font = "幼圆" '置文本框中文本字体为幼圆
    End Sub
    '使文字字体变为黑体的单选按钮单击事件
    Private Sub Option4_Click()
        Option4.Value = True '置单选按钮的Value属性值为True
        RichTextBox1.Font = "黑体" '置文本框中文本字体为黑体
    End Sub