Userform başlığının sola doğru hareketli olması

[Korhan Ayhan]

Selamlar,

Forumda araştırdım fakat gözümdende kaçmış olabilir ben userform başlığının sola doğru kayarak hareket etmesini istiyorum. Þöyleki userform caption değeri sola doğru hareket edecek harfler sola doğru birer birer kaybolacak sonra tekrar döngü ile devam edecek.

 

[Exelans]

Böyle bir şey işine yarar mı?

Sub HarfHarf(ref As UserForm1) 
baslik = ref.Caption 
ref.Caption = "" 
For i = 0 To Len(baslik) 
If i = 0 Then 
ref.Caption = "" 
current = Timer 
Do While Timer - current < 0.1 
DoEvents 
Loop 
GoTo Son 
Else 
End If 
ref.Caption = Left(baslik, i) 
current = Timer 
Do While Timer - current < 0.01 
DoEvents 
Loop 
Son: 
Next i 
End Sub

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[Haluk]

Alternatif: