IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

PHP- Kodu:

    Dim 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

Alıntıdır.