buenos dias quisera que ayuden con un error que me sale en mi programa que estoy haciendo es con polimorfismo:
Public Function mostrar_personas(ByVal tipos As String) As persona()
Dim lista() As persona
Dim indice As Integer = 0
Dim i As Integer
For i = 0 To personas.Length - 1
If personas(i).m_tipo = tipos Then
If indice = 0 Then
ReDim lista(0)
lista(indice) = personas(i)
End If
Else
ReDim Preserve lista(UBound(lista) + 1)
lista(UBound(lista)) = personas(i)
End If
indice += 1
Next
Return lista
End Function
mi ejericio trata de una clase padre"persona" y dos clases hijas"juridicay natural",en donce hay q registrar.mostrar y eliminar.
en esta funcion mostrar me sale error en "lista" me dice que "la variable lista se utiliza antes de que se le haya asignado un valor"