Dim Liste(9) As String
Dim i As Integer

Private Sub Form_Load()
Timer1.Interval = 200

Liste(0) = "VİSUAL BASİC ----HASAN ERCAN-------hasan_sensizim@hotmail.com"
Liste(1) = "VİSUAL BASİC ----HASAN ERCAN-------hasan_sensizim@hotmail.com"
Liste(2) = "VİSUAL BASİC -----HASAN ERCAN------hasan_sensizim@hotmail.com"
Liste(3) = "VİSUAL BASİC ------HASAN ERCAN-----hasan_sensizim@hotmail.com"
Liste(4) = "VİSUAL BASİC -------HASAN ERCAN----hasan_sensizim@hotmail.com"
Liste(5) = "VİSUAL BASİC --------HASAN ERCAN---hasan_sensizim@hotmail.com"
Liste(6) = "VİSUAL BASİC -------HASAN ERCAN----hasan_sensizim@hotmail.com"
Liste(7) = "VİSUAL BASİC ------HASAN ERCAN-----hasan_sensizim@hotmail.com"
Liste( = "VİSUAL BASİC -----HASAN ERCAN------hasan_sensizim@hotmail.com"
Liste(9) = "VİSUAL BASİC ----HASAN ERCAN-------hasan_sensizim@hotmail.com"
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