aşağıdan yukarıya kayan yazı visual basicc

Öncelikle Formunuza 15 Adet Label Birleseni Koyun ve Sırasıyla Yukardan Assagıya Sıralayın Adlanınıda Sırasıyla e1,e2...e15 verin
Label Height ve Fontunu 16 yapın ve istediniz weight Degerlerini verin
Ondan sonra Formunuza bir Timer yerleştirin ve adını T Verin Bu Örnegi About Form tasarımında kullanabilirsiniz umarım begenirsiniz.
Saygılarımla Kemal Gülol Delphi Expert Programmer

' Programmed by Kemal GÜLOL
' Ankara / Turkey
' email : Gulolkml@hotmail.com
' Allright Reserved.

Option Explicit

Private Msg(26) As String
Private C As Integer
Private MsgC As Integer

Private Sub Form_Activate()



Msg(0) = "Samir Bilisim A.S"
Msg(1) = "SICAK SATIS PROGRAMI"
Msg(2) = "Version 1.5 Beta"
Msg(3) = ""
Msg(4) = "Tüm Haklari Saklidir."
Msg(5) = "Copyright © 1999 - 2002"
Msg(6) = "Windows Ce ©"
Msg(7) = ""
Msg(8) = ""
Msg(9) = ""
Msg(10) = "Tel (+90 312 417 62 78 )"
Msg(11) = " (+90 312 417 24 51 )"
Msg(12) = " (+90 312 417 57 62 )"
Msg(13) = "Fax (+90 312 417 62 79 )"
Msg(14) = ""
Msg(15) = ""
Msg(16) = "Selanik Cd. 62/2 P.K. 06640"
Msg(17) = "Kizilay - Ankara / Turkey"
Msg(18) = ""
Msg(19) = "Programlayan Kemal GÜLOL"
Msg(20) = "email: gulolkml@hotmail.com"
Msg(21) = ""
Msg(22) = ""
Msg(23) = ""
Msg(24) = ""
Msg(25) = ""
Msg(26) = ""

C = -1
MsgC = 26
T.Interval = 400
T.Enabled = True
End Sub


Private Sub T_Timer()
' FrmAboutSAMRUT.Refresh
C = C + 1
If Not C = MsgC Then
e1.Caption = Msg(C)
If C + 1 <= MsgC Then
e2.Caption = Msg(C + 1)
Else:
e2.Caption = Msg(C + 1 - MsgC)
End If
If C + 2 <= MsgC Then
e3.Caption = Msg(C + 2)
Else:
e3.Caption = Msg(C + 2 - MsgC)
End If
If C + 3 <= MsgC Then
e4.Caption = Msg(C + 3)
Else:
e4.Caption = Msg(C + 3 - MsgC)
End If
If C + 4 <= MsgC Then
e5.Caption = Msg(C + 4)
Else:
e5.Caption = Msg(C + 4 - MsgC)
End If
If C + 5 <= MsgC Then
e6.Caption = Msg(C + 5)
Else:
e6.Caption = Msg(C + 5 - MsgC)
End If
If C + 6 <= MsgC Then
e7.Caption = Msg(C + 6)
Else:
e7.Caption = Msg(C + 6 - MsgC)
End If
If C + 7 <= MsgC Then
e8.Caption = Msg(C + 7)
Else:
e8.Caption = Msg(C + 7 - MsgC)
End If
If C + 8 <= MsgC Then
e9.Caption = Msg(C + 8)
Else:
e9.Caption = Msg(C + 8 - MsgC)
End If
If C + 9 <= MsgC Then
e10.Caption = Msg(C + 9)
Else:
e10.Caption = Msg(C + 9 - MsgC)
End If
If C + 10 <= MsgC Then
e11.Caption = Msg(C + 10)
Else:
e11.Caption = Msg(C + 10 - MsgC)
End If
If C + 11 <= MsgC Then
e12.Caption = Msg(C + 11)
Else:
e12.Caption = Msg(C + 11 - MsgC)
End If
If C + 12 <= MsgC Then
e13.Caption = Msg(C + 12)
Else:
e13.Caption = Msg(C + 12 - MsgC)
End If
If C + 13 <= MsgC Then
e14.Caption = Msg(C + 13)
Else:
e14.Caption = Msg(C + 13 - MsgC)
End If
If C + 14 <= MsgC Then
e15.Caption = Msg(C + 14)
Else:
e15.Caption = Msg((C + 14) - MsgC)
End If
Else
C = -1
T_Timer
End If
End Sub