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

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

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: