在用VB制作软件封面和界面时经常要用到三维字体，一般的方法是先用专门的软件（如Xara3d等）制作出三维字体的图片，然后再用图片框等控件显示出来。这样虽然简单，但其缺点有二：一是要额外增加控件和图片，这样势必会增加程序的大小；二是在VB中图片的加载速度不敢恭维。如能用VB直接编程制作出三维字体，岂不美哉！以下是本人的一点“小技”，请笑纳！

　　 先在VB中新建一个“工程”，然后在窗体上放置四个Command。以下是源程序：

　　 先声明如下“通用变量”:

　　 Dim posx, posy As Integer ´文字的显示位置

　　 Dim txtwidth As Integer ´文字轮廓宽度

　　 Dim str As String ´欲显示的文字

　　Private Sub Command1_Click() ´显示凸起三维文字

　　 Dim i As Integer

　　 str = "显示凸起三维文字"

　　 Me.Cls

　　 Me.ForeColor = RGB(255, 255, 255)

　　 For i = 1 To txtwidth

　　 Me.CurrentX = posx - i

　　 Me.CurrentY = posy - i

　　 Me.Print str

　　 Next i

　　 Me.ForeColor = RGB(0, 0, 0)

　　 For i = 1 To txtwidth

　　 Me.CurrentX = posx + i

　　 Me.CurrentY = posy + i

　　 Me.Print str

　　 Next i

　　 Me.ForeColor = RGB(0, 0, 255)

　　 Me.CurrentX = posx

　　 Me.CurrentY = posy

　　 Me.Print str

　　End Sub

　　Private Sub Command2_Click() ´显示凹陷三维文字

　　 Dim i As Integer

　　 str = "显示凹陷三维文字"

　　 Me.Cls

　　 Me.ForeColor = RGB(0, 0, 0)

　　 For i = 1 To txtwidth

　　 Me.CurrentX = posx - i

　　 Me.CurrentY = posy - i

　　 Me.Print str

　　 Next i

　　 Me.ForeColor = RGB(255, 255, 255)

　　 For i = 1 To txtwidth

　　 Me.CurrentX = posx + i

　　 Me.CurrentY = posy + i

　　 Me.Print str

　　 Next i

　　 Me.ForeColor = RGB(0, 0, 255)

　　 Me.CurrentX = posx

　　 Me.CurrentY = posy

　　 Me.Print str

　　 End Sub