abi gerçektende çok güzel ellerine ve emeğine sağlık

oke oldu

şimdi bunları kopyala SONRA KOD PENCERESİNE GEL YANİ 2 Kez Tıkla Form a ctrl - v yap veya sag tıkla Yapıstır yap Dim Kayan As Long Private Sub Form_Load Label1. Caption = "OFFF OFFFFFF" Picture1. Width = 3000 Picture1. Height = 250 Label1. Top = 0 Kayan = Picture1. Width Timer1. Interval = 10 Label1. AutoSize = True End Sub Private Sub Timer1_Timer Kayan = Kayan - 10 Label1. Left = Kayan If Label1. Left <= Label1. Width (-1) Then Kayan = Picture1. Width End If End Sub

BEN KAYDIRAMADİM :s ÖRNEK KODU BİR DAHA YOLLARMİSİNİZ?

usta oldu çok sağol. bide bunun sağa sola doğru kayanı değilde aşağıdan yukarı doğru çıkanını nasıl yapıcaz wardomjan da olduğu gidi

vb den anlamam ben. off bir an önce ögrenmek lazım... Kayıtlı

bende kaydıramadım yanıp söndü

usta çok iyi anlatmışsın teşekkürler. ben ilk denememde becerdim kaydetmeden kapattım. sonra tekrar denedim ama çalışmıyor. pro oluyor ama yazı kaymıyor sadece yanıp sönüyor bunun nedeni ne olabilir. birde üstadım pro yazarken kod bölümüne istediğim sıralamayı verebilirmiyim yani comman 1 sonraki adım olan comman2 değilde comman4 den başlasam karışık bir yol izlesem hata oluşurmu -

kodu direct olarak nasıl yapıştırcaz?

Kodlar gayet güzel bir şekilde çalışıyor, örnek kodu upload ettim bunu deneyin bakalım, Örnek

çok sağolasın yavaş yavaş bu örnekleri toplayarak güzel bir program yapmaya çalışıyorum

'Formun uzerine Bir Picture Box yerlestirin ismide Picture1 olsun 'Formun uzerine Bir Timer yerlestirin ismide Timer1 olsun 'Picture Box'un icine bir Label yerlestirin ismi Label1 olsun 'Asagidaki kodu da direct olarak yapistiriniz 'Keyifli seyirler Dim Kayan As Long Private Sub Form_Load Label1. Caption = "Merhaba Arkadaslar Umarim bu Kayar yazi ornegi isinize yarar!!!!!" Picture1. Width = 3000 Picture1. Height = 250 Label1. Top = 0 Kayan = Picture1. Width Timer1. Interval = 10 Label1. AutoSize = True End Sub Private Sub Timer1_Timer Kayan = Kayan - 10 Label1. Left = Kayan If Label1. Left <= Label1. Width (-1) Then Kayan = Picture1. Width End If End Sub