VB如何释放大内存

废话少说，看代码：

测试工程1：
------------------------
类ct代码
------------------------

Option Explicit


Private m_lngV2 As Long
Private m_lngV1 As Long
Private m_lngV3 As Long
Private m_lngV4 As Long
Private m_lngV5 As Long
Private m_lngV6 As Long
Private m_lngV7 As Long
Private m_lngV8 As Long
Private m_lngV9 As Long

Public Property Get V9() As Long
    V9 = m_lngV9
End Property

Public Property Let V9(ByVal lngValue As Long)
    m_lngV9 = lngValue
End Property

Public Property Get V8() As Long
    V8 = m_lngV8
End Property

Public Property Let V8(ByVal lngValue As Long)
    m_lngV8 = lngValue
End Property

Public Property Get V7() As Long
    V7 = m_lngV7
End Property

Public Property Let V7(ByVal lngValue As Long)
    m_lngV7 = lngValue
End Property

Public Property Get V6() As Long
    V6 = m_lngV6
End Property

Public Property Let V6(ByVal lngValue As Long)
    m_lngV6 = lngValue
End Property

Public Property Get V5() As Long
    V5 = m_lngV5
End Property

Public Property Let V5(ByVal lngVal