ControlBox İkonunu Değiştirmek

(General)(Declaration)
Dim y As Integer

Private Sub Timer1_Timer()
y = y + 1
If y = 4 Then y = 1
Form1.Icon = Image1(y).Picture ‘ 4 adet imaj içerisindeki saklanan
Picture1.Picture = Image1(y).Picture ‘ resimler sıra ile kullanılıyor
End Sub