Dim Liste(9) As String
Dim i As Integer

Private Sub Form_Load()
Timer1.Interval = 200

Liste(0) = "VİSUAL BASİC ----HASAN [email protected]"
Liste(1) = "VİSUAL BASİC ----HASAN [email protected]"
Liste(2) = "VİSUAL BASİC -----HASAN [email protected]"
Liste(3) = "VİSUAL BASİC ------HASAN [email protected]"
Liste(4) = "VİSUAL BASİC -------HASAN [email protected]"
Liste(5) = "VİSUAL BASİC --------HASAN [email protected]"
Liste(6) = "VİSUAL BASİC -------HASAN [email protected]"
Liste(7) = "VİSUAL BASİC ------HASAN [email protected]"
Liste( = "VİSUAL BASİC -----HASAN [email protected]"
Liste(9) = "VİSUAL BASİC ----HASAN [email protected]"
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