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"

Donde declaras Personas???? podrias colocar la clase Persona para ver que te trae?

Saludos Cordiales

Ejercicio:
Crear una aplicación que muestre las siguientes opciones: Registrar una Persona (Natural o Jurídica), Mostrar datos de persona y Eliminar persona.
Para cada una de estas opciones se deberá hacer la llamada a la operación de clases correspondiente,
Debe implementar las propiedades para cada uno de los miembros de clases, que sean de lectura y escritura, además de las propiedades indicadas en el diagrama: NombresCompletos que devuelve todo el nombre concatenado y calcularEdad que retorna la edad exacta de la persona (tener en cuenta día, mes y año).
Implementar un constructor que inicie todas las variables de las clases y el destructor que las libere.

mi codigo es este, pero no me funcion la opcion mostrar:

Public MustInherit Class persona
Implements IDisposable
Public m_apellidos As String
Public m_nombre As String
Public m_fechanac As Date
Public m_direccion As String
Public m_edad As Integer
Public m_tipo As String
Dim m_opc As String
Sub New(ByVal nom As String, ByVal fec As Date, ByVal ape As String, ByVal dir As String)
Me.m_apellidos = ape
Me.m_nombre = nom
Me.m_fechanac = fec
Me.m_direccion = dir
Me.m_edad = 0
Me.m_tipo = "J"
End Sub
Public ReadOnly Property Nombre() As String
Get
Return m_nombre
End Get
End Property
Public WriteOnly Property NombresCompleto() As String
Set(ByVal value As String)
Me.m_nombre = value
Me.m_apellidos = value
End Set
End Property

Public ReadOnly Property NombresCompletos() As String
Get
Return (Me.m_nombre & " " & Me.m_apellidos).ToUpper
End Get
End Property
Public WriteOnly Property Fecha() As Date
Set(ByVal value As Date)
'1/1/1990 - hoy
If value.Date >= "01/01/1990" And value.Date <= Now.Date Then
m_fechanac = value
Else
m_fechanac = "01/01/1990"
End If
End Set
End Property

Public ReadOnly Property miFecha() As Date
Get
Return m_fechanac
End Get
End Property
Public ReadOnly Property calcularedad() As Byte
Get
Return m_edad
End Get
End Property
Function calculoEdad() As Byte
Dim edad As Byte
edad = Now.Year - m_fechanac.Year
If m_fechanac.Month > Now.Month Then
edad -= 1
ElseIf m_fechanac.Month = Now.Month Then
If m_fechanac.Day > Now.Day Then
edad -= 1
End If
End If
Return edad
End Function

Sub obtenerEdad()
m_edad = calculoEdad()
End Sub
Public WriteOnly Property calculaedad() As String
Set(ByVal value As String)
Me.m_edad = value
End Set
End Property
Sub registrar(ByVal nombre As String, ByVal apellidos As String, ByVal fecha As Date, ByVal direccion As String)
Me.m_nombre = nombre
Me.m_apellidos = apellidos
Me.m_direccion = direccion
Me.m_fechanac = fecha
End Sub
Public Function mostarDatos() As ArrayList
Dim datos As New ArrayList
datos.Add(Me.m_nombre)
datos.Add(Me.m_apellidos)
datos.Add(Me.m_fechanac)
datos.Add(Me.m_direccion)
Return datos
End Function
Private disposedValue As Boolean = False ' Para detectar llamadas redundantes

' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
End If

' TODO: Liberar su propio estado (objetos no administrados).
' TODO: Establecer campos grandes como Null.
End If
Me.disposedValue = True
End Sub

#Region " IDisposable Support "
' Visual Basic agregó este código para implementar correctamente el modelo descartable.
Public Sub Dispose() Implements IDisposable.Dispose
' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
#End Region

End Class

//estas son las clases hijas

Public Class persona_juridica
Inherits persona
Private m_ruc As String
Sub New()
MyBase.New(nom:=" ", fec:=New Date, ape:="", Dir:="")
'm_edad = 0
m_ruc = ""
m_tipo = "S"
End Sub

Sub New(ByVal nom As String, ByVal fec As Date, ByVal ape As String, ByVal dir As String, ByVal ruc As String)
MyBase.New(nom, fec, ape, Dir)
Me.m_ruc = ruc
End Sub

Public Sub registrar_tipo(ByVal nom As String, ByVal ape As String, ByVal fec As Date, ByVal dir As String, ByVal ruc As String)
MyBase.registrar(nom, ape, fec, dir)
'Me.m_edad = calcularedad
Me.m_ruc = ruc
End Sub

Public Overloads Function mostarDatos() As ArrayList
Dim datos As New ArrayList
datos.Add(Me.m_nombre)
datos.Add(Me.m_apellidos)
datos.Add(Me.m_fechanac)
datos.Add(Me.m_direccion)
datos.Add(Me.m_ruc)
Return datos
End Function
End Class

Public Class persona_natural
Inherits persona
Private m_dni As String
Sub New()
MyBase.New(nom:=" ", fec:=New Date, ape:="", Dir:="")
'm_edad = 0
m_dni = ""
m_tipo = "S"
End Sub
Sub New(ByVal nom As String, ByVal fec As Date, ByVal ape As String, ByVal dir As String, ByVal dni As String)
MyBase.New(nom, fec, ape, dir)
'Me.m_edad = 0
Me.m_dni = dni
End Sub
Sub registrar_tipo(ByVal nom As String, ByVal ape As String, ByVal dir As String, ByVal fec As Date, ByVal dni As String)
MyBase.registrar(nom, ape, dir, fec)
'Me.m_edad = calcularedad
Me.m_dni = dni
End Sub
Public Function mostarDatoshijo() As ArrayList
Dim datos As New ArrayList
datos.Add(Me.m_nombre)
datos.Add(Me.m_apellidos)
datos.Add(Me.m_fechanac)
datos.Add(Me.m_direccion)
datos.Add(Me.m_dni)
Return datos
End Function
End Class

//clase donde se han creado los metodos prinicpales

Public Class PERSONAS
Public personas() As persona
Public Sub registrar_persona(ByVal objPer As persona)
If personas Is Nothing Then
ReDim personas(0)
personas(0) = objPer
Else
ReDim Preserve personas(UBound(personas) + 1)
personas(UBound(personas)) = objPer
End If
End Sub
Public Sub eliminarpersonas(ByVal nombre As String)
Dim replica() As persona
Dim elim As Boolean = False
Dim i As Integer
replica = personas.Clone
For i = 0 To replica.Length - 1
If replica(i).m_nombre <> nombre Then
personas(i) = replica(i)
Else
elim = True
End If
Next
If elim Then
ReDim personas(UBound(replica) - 1)
End If
End Sub
Public Function mostrarpersonas(ByVal tipos As String, ByVal objper As Object) As ArrayList
Dim datos As New ArrayList
Dim objcn As New persona_natural
Dim objcj As New persona_juridica
Dim i As Integer
For i = 0 To personas.Length - 1
If personas(i).m_tipo = tipos Then
objper = CType(objper, persona_juridica)
datos = objcj.mostarDatos()
Else
objper = CType(objper, persona_natural)
datos = objcn.mostarDatoshijo()
End If
Next
Return datos
End Function
End Class

//aqui esta el MAIN

Imports misclases

Module Module1

Sub Main()
Dim objPERSONA As New PERSONAS
Dim rpta As String = ""
Dim objcj As Object
Dim rr As String = ""
Dim p As String = ""

Dim lista As ArrayList

Do
Console.Write("Desea registrar personas(S/N): ")
rpta = (Console.ReadLine).ToUpper
Loop Until rpta = "S" Or rpta = "N"
If rpta = "S" Then
Do
Console.WriteLine("Registrar personas.....")
Do
Console.Write("Juridica o Natural(J/N): ")
rr = (Console.ReadLine).ToUpper
Loop Until rr = "J" Or rr = "N"

Console.WriteLine("Ingrese datos de la persona: ")

If rr = "J" Then
objcj = New persona_juridica(nom:="", ape:="", fec:=New Date, Dir:="", ruc:="")
Console.WriteLine("nombre" & "apellidos" & "fecha de nacimiento" & "direccion" & "ruc")
objcj.registrar_tipo(Console.ReadLine(), Console.ReadLine(), Console.ReadLine(), Console.ReadLine(), Console.ReadLine())
Else
objcj = New persona_natural(nom:="", ape:="", Dir:="", fec:=New Date, dni:="")
objcj.registrar_tipo(Console.ReadLine(), Console.ReadLine(), Console.ReadLine(), Console.ReadLine(), Console.ReadLine())
End If
objPERSONA.registrar_persona(objcj)
Console.WriteLine("Mostrando personas....")
Do
Console.Write("Desea mostrar personas juridicas o naturales (J/N): ")
p = (Console.ReadLine).ToUpper
Loop Until p = "J" Or p = "N"
lista = objPERSONA.mostrarpersonas(p, objcj)
For Each dato In lista
Console.WriteLine(dato)
Next
'Console.WriteLine(lista)
'lista = objPERSONA.mostrar_personas(rpta)
Do
Do
Console.Write("Desea eliminar personas(S/N): ")
rpta = (Console.ReadLine).ToUpper
Loop Until rpta = "S" Or rpta = "N"
If rpta = "S" Then
Console.Write("Nombre de la persona a eliminar: ")
objPERSONA.eliminarpersonas(Console.ReadLine())
End If
Loop Until rpta = "N"

Do
Console.Write("Desea registrar personas(S/N): ")
rpta = (Console.ReadLine).ToUpper
Loop Until rpta = "S" Or rpta = "N"
Loop Until rpta = "N"
End If

Console.Read()
End Sub
End Module

//quisiera ver si lo puedes revisar y ver en donde esta mi error, please ojala mas tarde puedas darme una respuesta

lo que pasa es que debes verificar que tus elementos personas(i) o el lista(i) hayan sido previamente creados de la siguiente manera pesronas(i)=new persona, estoy segurisimo que este error simpre lo muestra vb por dicho motivo.

me podrias explicar un poco mas detallado please