timer

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