>>72 >>80
Unload時にNothingを代入しても配列は解放されていませんが何か？
ヒント Main関数のDim〜の行をコメントアウトすると解放されるけどね。

<Module1>
Sub Main()
　　Dim Form1 As New Form1
　　Form1.Show vbModal
　　MsgBox Form1.arraysize
End Sub

<Form1>
Private m_a() As Long
Public Property Get arraysize() As Long
　　On Error Resume Next
　　arraysize = UBound(m_a)
End Property

Private Sub Form_Load()
　　ReDim m_a(100)
End Sub

Private Sub Form_Unload(Cancel As Integer)
　　Set Form1 = Nothing
End Sub