'Not:Formun başlık çubuğundaki resmi
'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
Command1_Click()
Timer1_Timer()
‘Timer’ın kontrolünün her bir vuruşunda...
‘degistir alt yordamını cagir.
degistir