SoloCodigo

Estoy realizando en clipper un sistema de ventas, tengo todo bastante completo pero me tranque con las facturas, lo que quiero hacer es que después de seleccionar el cliente pase a un estilo de grilla donde en la primer columna seleccione un numero de producto y aparezca la descripción etc. Esto si logre pero no puedo hacer que sean 5 líneas, o sea poder seleccionar 5 productos para después facturar.
Ejemplo de la pantalla que trato de realizar,

Static Function Pantalla()
*---------------------------------------
        @ 24,0 say ' Ingreso de datos de la Venta                       Esc->Salir     F1->Ayuda          '
        BoxSombra(5,9,22,72,'B','N')  
        @ 5,12 say '[Venta]' color 'W+/N'
        @ 6,11 clear to 19,71
        @ 7,12 say  'Cliente    :'
        @ 8,12 say  'Nro.  de Venta : [     ]'
   @ 9,12 say  '----------------------------------------------------------'
        @ 10,12 say 'CODIGO  PRODUCTO               CANT.   VALOR      TOTAL'
   @ 11,12 say "[     ]_____________________[    ][         ][         ]"
   @ 12,12 say "[     ]_____________________[    ][         ][         ]"
   @ 13,12 say "[     ]_____________________[    ][         ][         ]"
   @ 14,12 say "[     ]_____________________[    ][         ][         ]"
   @ 15,12 say "[     ]_____________________[    ][         ][         ]"
        @ 16,12 say '----------------------------------------------------------'
        @ 17,12 SAY 'Cuotas   : [   ] Moneda : [ ]     SUB TOTAL [         ]'
        @ 18,12 say 'Adelanto : [         ]                    IMPUESTO [         ]'
        @ 19,12 say 'Fecha    : [  /  /    ]                        OTROS [         ]'
        @ 20,12 say 'Vence    : [  /  /    ]                        TOTAL [         ]'

return
*------------------------------------------------------
Si me pueden guiar les agradecería como así también si tienen una idea mejor con el modelo de factura

Solucionado
Un Amigo me comento que trabajara con bucles anidados, probé y salio
No se si será la forma mas prolija pero en el MsFlex carga solo los registros que tienen fecha de Nacimiento 23/05

 Do While TablaCliente.EOF = False
    Do While TablaCliente.EOF = False
      FechaCumple = ""
      FechaCumple = Format(TablaCliente("CliFecha"), "dd/MM")
      If FechaHoy = FechaCumple Then
        flex.TextMatrix(i, 0) = TablaCliente!clicod
        flex.TextMatrix(i, 1) = TablaCliente!clinom
        flex.TextMatrix(i, 2) = TablaCliente!CliDir
        flex.TextMatrix(i, 3) = TablaCliente!CliLoca
        flex.TextMatrix(i, 4) = TablaCliente!CliEmail
        flex.TextMatrix(i, 5) = TablaCliente!CliFecha
         i = i + 1
        flex.AddItem ("")
        TablaCliente.MoveNext
        Else
        TablaCliente.MoveNext
        Exit Do
        End If
        Loop
   Loop

Por cualquier consulta estoy a la orden
saludos

Propiedades del Form
           StartUoPosition = CenterScreen
            WindowState = Normal

Private Sub Form_Load()

    iH = Height
    iW = Width
end sub

Private Sub Form_Resize()
    'Sólo comprobar si el estado es Normal
    If WindowState = vbNormal Then
    Centrar Me
        'Si se cambia la altura
        If Height <> iH Then
            Height = iH
            Centrar Me
        End If
        'Si se cambia el ancho
        If Width <> iW Then
            Width = iW
            Centrar Me
        End If
    End If
End Sub