Private Type Normal ' Declaro el Tipo de Arreglo Que Necesito Con sus Campos
Patente As String
Pedimento As String
Archivo As String
Firma As String
Fecha As String
Hora As String
Regimen As String
Clave As String
RFC As String
Nombre As String
End Type
Dim Arreglo Global1(), ArregloGlobal2() as Normal ' Declaro Globalmente los arrays
' Despues hago el Codigo de mi procedimiento con varios parametros que necesito
Private Sub Fact(Pat As String, ByVal ini As Long, ByVal fin As Long, ByRef IndiPat() As Normal, ByRef ConsoPat() As Normal)
dim temp1(),temp2() as Normal
"Serie de Validaciones"
IndiPat = temp1
ConsoPat = temp2
end sub
Private Sub Command1_Click() ' En un boton mando llamar el procedimiento
Fact Check2.Caption, fechai, fechaf, ArregloGlobal1(), ArregloGlobal2()
end Sub