VB ile animasyon

[AcimasiZz-]

'de değiştireceğimizden Image kutularına
'yerleştireceğiniz resimleri simge (ICO) olmasıdır.

General - Declarations bölümüne yazılacak
Dim y As Integer

General bölümüne yazılacak
Private Sub degistir()
y = y + 1: If y = 4 Then y = 1
‘Formun Simgesini değiştir
Form1.Icon = Image1(y).Picture
‘Resim kutusundaki resmi değiştir.
Picture1.Picture = Image1(y).Picture
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Timer1_Timer()
‘Timer`ın kontrolünün her bir vuruşunda...
‘degistir alt yordamını cagir.
degistir
End Sub