document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas module file
  2.  
  3. Public Sub Main()
  4.  
  5.   Dim ventana As VentanaPrincipal
  6.  
  7.   ventana = New VentanaPrincipal(crearPersonas())
  8.  
  9.   ventana.Show()
  10.  
  11. End
  12.  
  13. Public Function crearPersonas() As PersonaVo[]
  14.  
  15.   Dim p1 As PersonaVo
  16.   Dim p2 As PersonaVo
  17.   Dim p3 As PersonaVo
  18.   Dim parray As PersonaVo[]
  19.  
  20.   p1 = New PersonaVo
  21.   p1.documento = 1
  22.   p1.nombre = "Pedro"
  23.  
  24.   p2 = New PersonaVo
  25.   p2.documento = 2
  26.   p2.nombre = "Pablo"
  27.  
  28.   p3 = New PersonaVo
  29.   p3.documento = 3
  30.   p3.nombre = "Paco"
  31.  
  32.   parray = [p1, p2, p3]
  33.  
  34.   Return parray
  35.  
  36. End
');