Sadece Yazı boyutun da kaysın diyorsanız Kod: Private Sub Timer1_Timer Form1. Caption = Right(Form1. Caption, Len(Form1. Caption) - 1) & Left(Form1. Caption, 1) End Sub Yok yazdığım yazı Formun Genişliğince çoğalsında uzunca kaysın diyorsanız Kod: Private Sub Timer1_Timer Form1. Caption = Right(Form1. Caption, Len(Form1. Caption) - 1) & Left(Form1. Caption, Len(Form1. Caption) + 1) End Sub