Public Sub TimerRedibujar_Timer()
Dim aviontmp As Sprite
Dim disparotmp As Sprite
Dim explosion As Explode
If ciclo > 200 Then
creaenemigo()
ciclo = 0
Else
ciclo += 1
Endif
\'mover los aviones....
For Each aviontmp In grupoAviones
aviontmp.mover()
Next
\'mover disparos
For Each disparotmp In grupoDisparosPropios
disparotmp.mover()
Next
\'mover disparos enemigos
For Each disparotmp In grupoDisparosEnemigos
disparotmp.mover()
Next
analizaColisiones()
\'mover explosiones
For Each explosion In grupoExplosiones
explosion.mover()
Next
DrawingArea1.Refresh()
End