Tengo un array el cual lleno en el formulario1 y lo envío al formulario2 al metodo Frm2.LlenarVales(array()), hasta ahí todo bien, pero cuando quiero usar el array en el método grabar parece que el array esta vacío y manda el error "valor fuera del intervalo".
Formulario 1
Frm2.LlenarVales(array())
Formulario 2
Dim array() as Integer
Dim I As Long
Public Function Grabar()
For I = 1 To UBound(array)
MsgBox "Valor: " & (array(I)), vbInformation, "Mensaje"
Next
End Function
Public Function LlenarVales(array() As Integer)
array() = array()
For I = 1 To UBound(array)
MsgBox "Valor: " & (array(I)), vbInformation, "Mensaje"
Next
End Function