\' Gambas module file
Public Sub Main()
Dim ventana As VentanaPrincipal
ventana = New VentanaPrincipal(crearPersonas())
ventana.Show()
End
Public Function crearPersonas() As PersonaVo[]
Dim p1 As PersonaVo
Dim p2 As PersonaVo
Dim p3 As PersonaVo
Dim parray As PersonaVo[]
p1 = New PersonaVo
p1.documento = 1
p1.nombre = "Pedro"
p2 = New PersonaVo
p2.documento = 2
p2.nombre = "Pablo"
p3 = New PersonaVo
p3.documento = 3
p3.nombre = "Paco"
parray = [p1, p2, p3]
Return parray
End