Arrays

[Pollodrilo]

Hola buenas tengo una duda con el manejo de arrays. Si algien me pudiera encaminar a una solucion de este problema se lo agradeceria mucho.


Este codigo trata de una clase de nombre proveedor que tiene como metodos guardar este metodo deve tomar llenar esos dos arreglos (id y nombres)
cada vez que se llame la funcion desde otro formulario.

Este codigo me llena una vez el arreglo pero la segunda vez que trato de llenarlo me aparece como si no tuviera nada ni sikiera un largo el arreglo, aun cuando yo redimencione el arreglo la primera vez.

Ese es mi problema y he intentado varias formas pero no tengo muchos conocimientos talvez hay una forma facil de solucionar esto.

Código:

Public Class Proveedor
    Public id() As Integer
    Public nombres() As String

    Public sub guardar(ByVal e_id As Integer, ByVal e_nombres As String)

        Dim largo, i As Integer

        Try
            largo = id.Length()
            
            if largo = 0 and id(0)<> nothing then
              largo =1
            end if 

        Catch ex As NullReferenceException

            largo = 0

        End Try


        'redimencionar el vector de tal forma que no se reseten los datos de el      

        ReDim Preserve id(largo)
        ReDim Preserve nombres(largo)

        For i = 0 To largo
            If id(largo) = Nothing Then
                id(i) = e_id
                nombres(i) = e_nombres
            End If
        Next
    End sub
End Class