Visual Basic确实是一种很不错的应用程序开发工具。笔者在使用中，也确实感到用VB设计程序，许多方法的实现是那么的简单。有时，仅仅需要几条语句，就可实现一种方法、效果或功能。下面就介绍一下，阴影字体在VB中的实现。程序如下：
Private Sub Form－Click（）
CurrentX＝700
CurrentY＝1000
FontSize＝30
ForeColor＝QBColor（8）
Print”Software Weekly”
CurrentX＝750
CurrentY＝1050
FontSize＝30
ForeColor＝QBColor（12）
Print”Software Weekly”
End Sub
在属性（properties）窗口中设置：Auto3D为true Font选一种True Type字体。
该程序是把代码加到Form的Click事件中，通过先打印字体的阴影部分，再打印出字体，以实现阴影字体效果的。试运行该程序，单击窗体后，即呈现出阴影字体Software Weekly。