Private m_array(,) As Integer Private Sub initialiseArray(maxX As Integer, maxY As Integer) Dim newArray(maxX, maxY) As Integer m_array = newArray End Sub