İlgilendiğniz için teşekkür ederim arkadaşlar. Kodu aşağıda verdim.
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
|