IconoAnimado

Hoy les traigo un simple efecto para formularios que en sus proyectos opcionalmente podrían ser usados.
Herramientas.

Timer

Imagelist

Código Timer.

Private Sub Timer1_Timer()
Form1.Icon = ImageList1.ListImages(x).Picture
x = x + 1
If x = 4 Then
x = 1
End If
End Sub
Código Imagelist.

Dim x As Integer
Y en el formulario..

Private Sub Form_Load()
x = 1
End Sub
Propiedades del ImageList.


[Tienes que estar registrado y conectado para ver este vínculo]

Propiedades del Timer.


[Tienes que estar registrado y conectado para ver este vínculo]