Classi - Matrici in uscita

[Stibbert]

Ho un progetto tipo questo:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Matrice As New Matrice

        MsgBox(Matrice.Prova(1))
        MsgBox(Matrice.Prova(0)) 


    End Sub
End Class

Public Class Matrice
    ...
    ...
    Public Function Prova() As String

        Dim a(2) As String
        a(0) = "Uno"
        a(1) = "Due"
        a(2) = "Tre"

        Return a() 

    End Function
End Class

Vorrei fare restituire da un metodo invece che una variabile, una matrice (completa di tutti i suoi dati).
Vorrei poi richiamarla e accedere ai dati in essi inserita, nell'ordine e quando lo desidero.
Qualcuno sa come si può fare?
(Questo progetto non funziona. Serve solo per mostrare quali sono le mie esigenze).
Grazie.

[Stibbert]

Ci sono riuscito da solo!
Smanettando un po' ho trovato la soluzione:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim prova As New Prova
        MsgBox(prova.Matrice(1))

    End Sub
End Class

Public Class Prova
    Public Function Matrice() As Array

        Dim a(2) As String
        a(0) = "Uno"
        a(1) = "Due"
        a(2) = "Tre"
        Return a

    End Function
End Class

Grazie lo stesso.

[Stibbert]

Non è vero!!!

Ho scritto "Option Strict On" e non mi funziona più.
Mi dice che "MsgBox(prova.Matrice(1))" non supporta l'associazione tardiva...
Come lo posso risolvere?

[Pirelli72]

Prova con:

Public Function Matrice() As String()

        Dim a(2) As String
        a(0) = "Uno"
        a(1) = "Due"
        a(2) = "Tre"
        Return a

    End Function