VB variant参数传递的问题

Public Sub PrintArray(ArrayName() As Variant, Optional Object As Object, Optional Tabs As Long)

    Dim i As Integer, j As Integer

    For i = LBound(ArrayName, 1) To UBound(ArrayName, 1)

        For j = LBound(ArrayName, 2) To UBound(ArrayName, 2)

            Object.Print Trim(ArrayName(i, j)); Space(Tabs);

        Next

        Object.Print

    Next

End Sub



Sub Main()

Form1.Show

Dim a(1,1) As Integer

a(0,0)=30

a(1,0)=40

a(0,1)=50

a(1,1)=60

PrintArray a,Form1,3

End Sub