【实例说明】
    日常生活中，我们经常会看到各种不同的文字效果，如阴影字、立体字等。本例将介绍用程序制作这些文字效果的方法。运行程序，单击“阴影效果”按钮，窗体上将显示阴影文字；单击“立体效果”按钮，窗体上将显示立体感文字；单击“退出”按钮，即退出程序。

【编程思路】
    运用Print方法写入窗体文字，运用QBColor函数调整文字颜色，从而实现各种视觉效果。下面是Print方法和QBColor函数的用法：
    Print方法，将文本或数字变量放到窗体或图片框上。
    QBColor函数，返回一个Long，表示所对应颜色值的RGB颜色码。
    语法：QBColor(color)，必要的color参数是一个0到15之间的整形。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在窗体上放置三个CommandButton控件。

    3.源程序  [素材源程序下载]


'阴影效果
Private Sub Command1_Click()
        '清除
        Form1.Cls
        CurrentX = 800
        CurrentY = 1000
        FontSize = 20
        ForeColor = QBColor(8)
        Print "阴影字"
        CurrentX = 830
        CurrentY = 1000
        FontSize = 20
        ForeColor = QBColor(12)
        Print "阴影字"
End Sub

'立体效果
Private Sub Command2_Click()
        Form1.Cls
        CurrentX = 800
        CurrentY = 1000
        FontSize = 20
        ForeColor = QBColor(10)
        Print "立体字"
        CurrentX = 800
        CurrentY = 1025
        FontSize = 20
        ForeColor = QBColor(5)
        Print "立体字"
End Sub

'退出
Private Sub Command3_Click()
        End
End Sub

'载入前所运行程序
Private Sub Form_Activate()
        '设置字的颜色
        Me.ForeColor = QBColor(12)
        '设置文字坐标
        CurrentX = 800
        CurrentY = 1000
        '设置文字字号大小
        FontSize = 20
        Print "阴影字"
End Sub