Başık Kaydırma Örneği

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Static t, x, artır
If IsEmpty(t) Then
t = "Erdoğan Aslan"
artır = -1
End If
If x = Len(t) Then artır = -artır
If x <= 0 Then artır = -artır
x = x + artır
If artır > 0 Then Caption = "Author : " & Left(t, x)
If artır < 0 Then Caption = "Author : " & Right(t, x)

End Sub

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

başık kaydırma � rneği