[Cekici]

Private Sub Form_Load()
a1.ClipX = (a1.Width / 2) - 25
a1.ClipY = (a1.Height / 2) - 25
a1.ClipHeight = 50
a1.ClipWidth = 50
Picture1.Picture = a1.Clip
Left = (Screen.Width - Width) / 2
Top = (Screen.Height - Width) / 2
End Sub

Private Sub Timer1_Timer()
Static i
Picture1.Picture = a1.GraphicCell(i)
i = i + 1
i = i Mod 50
End Sub

birde böyle dene bakalım, bana göre resimlerini üst üste koyarken sağa doğru kaydırmasının nedeni nesnenin sol başlangıç değerleni değilde en son koyulan resmin sol ölçüsünü almasından kaynaklanıyor olabilir diye düşünüyorum.....