帮小弟我看看程序？多谢啦…这个程序原理不复杂，但是总是出现同样的异常

帮我看看程序？谢谢啦……这个程序原理不复杂，但是总是出现同样的错误！
重点是红色字体部分！我想实现记录下来i,j 的值由于不确定这样的i,j的值得个数，于是我把它放在了动态数组（jilux()、jiluy()）里。通过一个变量h再不断的给它加1来改变数组的维数，又不断的记录下来每个数组的值，最后生成这个数组。可是总是在jilux(h)=i处出现 “对象未引用”的错误？？为什么？帮我看看
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim i, j As Integer
        Dim tmpbmp As New Bitmap(PictureBox1.Image)
        PictureBox1.Image = tmpbmp
        With tmpbmp
            For j = 0 To 299
                For i = 0 To 299
                    Dim p As Color
                    p = tmpbmp.GetPixel(i, j)
                    If 255 - p.R = 0 Then
                        A(i, j) = 1
                        h = h + 1
                        jilux(h) = i
                        jiluy(h) = j
                        ReDim Preserve jilux(h)
                        ReDim Preserve jiluy(h)                    Else
                        A(i, j) = 0
                    End If
                    ListBox1.Items.Add(A(i, j))
                Next
            Next
        End With
    End Sub
------最佳解决方案--------------------
把jilux(h) = i
 jiluy(h) = j
和
ReDim Preserve jilux(h)
ReDim Preserve jiluy(h) 
位置对调也可以试试 
------其他解决方案--------------------
 ReDim Preserve jilux(h)

 ReDim Preserve jiluy(h)把这两居中的（h)改为（h+1 )或者
把下面的两句
 
    jilux(h) = i
    jiluy(h) = j