Userformda sürekli kayan yazı

[gordon]

Userform daki 'yazı' labelinin sağa doğru 10sn aralıklarla kaymasını istiyorum fakat yazı kaybolduktan sonra soldan tekrar aynı işlemi yapmasını istiyorum yani sürekli olacak.yardım ederseniz çok teşekkür ederim.

 

[Selçuk1]

sn. gordon;

üstadlar daha iyisini bilirler ama, bildiğim kadarıyla böyle bir makro userform üzerinde başka işlem yapmanızı engeller. yani sürekli o kod çalışacağı için sanırım başka işlem yapamazsınız.

 

[bedersu]

Şu şekilde bir deneyin:

Private Sub UserForm_Activate()

Dim say, sayı As Integer
For say = 1 To 10
Label1.Left = Label1.Left + 24
Application.Wait (Now + TimeValue("00:00:01"))
Next say

For sayı = 1 To 10
Label1.Left = Label1.Left - 24
Application.Wait (Now + TimeValue("00:00:01"))
Next sayı

End Sub

Ama sürekli olması başka işlemleri yapmanızı engeller sayın cellchuq un da dediği gibi