[VB6] Passaggio di una matrice ad una routine

[oregon]

Il codice corretto e'

Private Sub CancellaListeMatrici(Lista As Variant)
  Dim i As Integer
  For i = 0 To Lista.Ubound
    Lista(i).Clear
  Next i
End Sub

' E la richiami con
CancellaListeMatrici Lista_id

ma questa versione è migliore

Private Sub CancellaListeMatrici(Lista As Variant)
  Dim L As Variant
  For Each L In Lista
    L.Clear
  Next
End Sub

' E la richiami sempre con
CancellaListeMatrici Lista_id