[Thewolf]

ُس !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید !!!!!!!!!!!!!!!!!!!!

با کد زیر یک نوشته کلمه به کلمه از چپ به راست نوشته می شود.

ابتدا یک Timer و یک Label ایجاد کنید.

سپس کد های زیر را در قسمت General فرم وارد کنید.

کد:

Option Explicit


'TheWolf
'Www.Parsicoders.com
Dim Txt As String

Private Sub Form_Load()
Txt = "TheWolf, Www.Parsicoders.Com, Example, VB 6"
Timer1.Interval = 1
With Label1
.Left = 120
.Top = 120
.Font.Size = 10
.Width = 5535
.Height = 1695
.Font.Name = "Tahoma"
.ForeColor = vbGreen
.BackColor = vbBlack
End With
With Me
.Width = 5895
.Height = 2475
.BackColor = vbBlack
End With
End Sub

Private Sub Timer1_Timer()
Static num, num1 As Integer
Dim lin, Text As String
num = num + 1
num1 = num1 + 1
If num1 = 20 Then
lin = "_"
num1 = 0
ElseIf num = 10 Then
lin = ""
End If
Text = Left(Txt, num)
Label1 = Text & lin
End Sub

سوالی نیست؟