توسط این دستورات می توانید یک متن دلخواه را به صورت سه بعدی روی فرم نشان دهید برای این کار ابتدا کد زیر را به یک ماجول اضافه کنید :

 Public Declare Function TextOut Lib "gdi32" Alias _

"TextOutA" (ByVal hdc As Long, ByVal x As Long, _
ByVal y As Long, ByVal lpString As String, ByVal _
nCount As Long) As Long

روی فرم یک دکمه بگذارید و برای آن کد زیر را بنویسید :

Private Sub Command1_Click()
Dim i As Integer
Dim s As String

With Form1
s = "www.shaygan.com"
For i = 0 To 127
.Font.Name = "Times New Roman"
.Font.Size = 30
.ForeColor = RGB(i * 2, i * 2, i * 2)
TextOut .hdc, i / 15, i / 15, s, Len(s)
Next
End With
End Sub

برنامه را اجرا کنید و نتیجه را مشاهده کنید .