document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. \' Patron Bridge...
  4.  
  5. Public Sub _new()
  6.  
  7. End
  8.  
  9. Public Sub Form_Open()
  10.  
  11.   Dim rectang As Rectangulo
  12.   Dim dp As New DibujandoPuntueado
  13.   Dim dn As New DibujandoNormal
  14.  
  15.   rectang = New Rectangulo(dp)
  16.   rectang.Dibuja()
  17.  
  18.   rectang = New Rectangulo(dn)
  19.   rectang.Dibuja()
  20.  
  21.   dibujandoCirculo()  
  22.  
  23. End
  24.  
  25. Public Sub dibujandoCirculo()
  26.  
  27.   Dim circu As Circulo
  28.   Dim dp As New DibujandoPuntueado
  29.   Dim dn As New DibujandoNormal
  30.  
  31.   circu = New Circulo(dp)
  32.   circu.Dibuja()
  33.  
  34.   circu = New Circulo(dn)
  35.   circu.Dibuja()
  36.  
  37. End
');