document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Sub DrawingArea1_Draw()
  2.   \'dibujar los objetos que haya....
  3.  
  4.  Dim aviontmp As Sprite
  5.  Dim disparo As Sprite
  6.  Dim explosion As Explode
  7.  \'dubjar elementos de la pantalla
  8.   fondo.dibuja()
  9.  
  10.   For Each aviontmp In grupoAviones
  11.     aviontmp.dibuja()
  12.   Next
  13.  
  14.   For Each disparo In grupoDisparosPropios
  15.     disparo.dibuja()
  16.   Next
  17.  
  18.   For Each disparo In grupoDisparosEnemigos
  19.     disparo.dibuja()
  20.   Next
  21.  
  22.   For Each explosion In grupoExplosiones
  23.     explosion.dibuja()
  24.   Next
  25.  
  26. End
');