Hareketli Başlık ÇubuğuDim Liste(9) As String

Dim i As Integer
Private Sub Form_Load()
Liste(0) = "Ana Ekran >-----"
Liste(1) = "Ana Ekran ->----"
Liste(2) = "Ana Ekran -->---"
Liste(3) = "Ana Ekran --->--"
Liste(4) = "Ana Ekran ---->-"
Liste(5) = "Ana Ekran ----->"
Liste(6) = "Ana Ekran ----<-"
Liste(7) = "Ana Ekran ---<--"
Liste(8) = "Ana Ekran --<---"
Liste(9) = "Ana Ekran -<----"
i = 0
End Sub

Private Sub Timer1_Timer()
Form1.Caption = Liste(i)
'i değeri 10 olunca Mod fonksiyonu ile tekrar 0'a döndürülmeli
i = (i + 1) Mod 10
End Sub

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

hareketli başlık � ubuğudim liste 9 as string