vba レポート描画

Question

ACCESSのレポートで詳細のフォーマット時イベントにVBAを記述して
印刷プレビューで、テーブルに基づいて地図のようなものを描画したいと思っています。
テーブル等の情報は以下のような感じです。

「テーブル名」：T_東京
「フィールド」ID：区：人数
1：荒川区：15
2：杉並区：10
3：江東区：2
4：世田谷区：22
5：新宿区：4
6：太田区：2
7：隅田区：28
8：渋谷区：9
9：品川区：13
「レポート名」：R_描画テスト

1.区の人数に合わせて配列に色を格納する。
2.格納した配列を描画する関数に渡して描画する。

上記の手順で進めたいのですが、配列の値が関数に渡りません。
（ちなみにrgbを3分割して、2次元配列にしてみましたが、値は渡りません。位置を表す値（Single型）は変数で渡すことはできます）
配列の値を関数に渡すにはどんな方法がありますか？
そもそもFunctionなどの使い方が間違っているのかもしれませんが・・・

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)

    '配列に色のデータを格納する
    
    Dim i As Integer
    Dim rs As Recordset
    Dim acolor() As Long
    
    i = 0
    
    Set rs = db.OpenRecordset("T_東京", dbOpenTable)
    
    rs.MoveFirst
    
    Do Until rs.EOF
        
    ReDim acolor(i)
    
        '区の人数に合わせて配列に色を格納する
        Select Case rs![人数]
            Case 1 To 5
                acolor(i) = rgb(255, 0, 0)
            Case 6 To 10
                acolor(i) = rgb(255, 51, 0)
            Case 11 To 15
                acolor(i) = rgb(255, 102, 0)
            Case 16 To 20
                acolor(i) = rgb(255, 133, 0)
            Case 21 To 25
                acolor(i) = rgb(255, 204, 0)
            Case 26 To 30
                acolor(i) = rgb(255, 255, 0)
            Case Else
                MsgBox "範囲外です。"
        End Select
        
        i = i + 1
        
        rs.MoveNext
        
    Loop
    
    '各町の描画
    
    '****ここで配列の値を関数に渡したいけどできません
    '****描画自体はできているので配列だけ関数に渡ってないようです
    Call Unit(acolor(0), 1, 0)'荒川区の描画
    Call Unit(acolor(1), 2, 0)'杉並区の描画
    Call Unit(acolor(2), 0, 1)'江東区の描画
    Call Unit(acolor(3), 1, 1)'世田谷区の描画
    Call Unit(acolor(4), 0, 2)'新宿区の描画
    Call Unit(acolor(5), 1, 2)'太田区の描画
    Call Unit(acolor(6), 1, 2)'隅田区の描画
    Call Unit(acolor(7), 1, 2)'渋谷区の描画
    Call Unit(acolor(8), 1, 2)'品川区の描画
    
    '****直接値を入れれば、正常に描画されます。
	Call Unit(rgb(255, 51, 0), 1, 0)
	
End Sub

'四角形の描画（中塗り）
Function Unit(IngColor As Long, x As Single, y As Single) As Report
    
    'メッセージボックスで確認してみると値は渡ってないみたいです。
    MsgBox IngColor
    
    Dim rpt As Report 'レポートオブジェクト
    Dim top As Single
    Dim left As Single
    Dim right As Single
    Dim bottom As Single
    
    top = 5 + x * 5
    left = 5 + y * 5
    right = 5 + top
    bottom = 5 + left
    
    Set rpt = Reports![R_描画テスト]

    'スケールの基準をmmに設定
    rpt.ScaleMode = 6
             
    rpt.Line (top, left)-(right, bottom), IngColor, BF

End Function

Answer 1

ループの中で動的配列をredimする際に、Preserveを指定してないので
redimしたときに値がすっぱり消えているのではないかと。