redibujar

Public Sub DrawingArea1_Draw()
  'dibujar los objetos que haya....

  Dim aviontmp As Sprite
  Dim disparo As Sprite
  Dim explosion As Explode
  'dubjar elementos de la pantalla
  fondo.dibuja()

  For Each aviontmp In grupoAviones
    aviontmp.dibuja()
  Next

  For Each disparo In grupoDisparosPropios
    disparo.dibuja()
  Next

  For Each disparo In grupoDisparosEnemigos
    disparo.dibuja()
  Next

  For Each explosion In grupoExplosiones
    explosion.dibuja()
  Next

End