内存不会增加，是自动释放，重新定义New ArrayList后集合aa原值所占空间自动释放
我们提供的服务有：网站设计制作、成都网站制作、微信公众号开发、网站优化、网站认证、赤城ssl等。为近千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的赤城网站制作公司
实际上 Dim aa as ArrayList : aa = New ArrayList可以合并放在循环体内如
Do While .....
Dim aa As New ArrayList
........
........
Loop
应用里添加 System.Management
文件前加上
Imports System.Management
''' summary
''' 获取系统内存大小
''' /summary
''' returns内存大小（单位Byte）/returns
Private shared Function GetPhisicalMemory()As Long
dim searcher = new ManagementObjectSearcher() '用于查询一些如系统信息的管理对象
searcher.Query = new SelectQuery("Win32_PhysicalMemory ", "", new string() { "Capacity" })'设置查询条件
dim collection = searcher.Get() '获取内存容量
dim em = collection.GetEnumerator()
dim capacity as long= 0
While (em.MoveNext())
dim baseObj = em.Current
If (baseObj.Properties("Capacity").Value IsNot Nothing) Then
Try
capacity += long.Parse(baseObj.Properties("Capacity").Value.ToString())
Catch
return 0
End Try
End If
End While
return capacity
End Function
1.可以
一、应用程序没有检查内存分配失败
程序需要一块内存用以保存数据时，就需要调用操作系统提供的“功能函数”来申请，如果内存分配成功，函数就会将所新开辟的内存区地址返回给应用程序，应用程序就可以通过这个地址使用这块内存。这就是“动态内存分配”，内存地址也就是编程中的“指针”。
内存不是永远都招之即来、用之不尽的，有时候内存分配也会失败。当分配失败时系统函数会返回一个0值，这时返回值“0”已不表示新启用的指针，而是系统向应用程序发出的一个通知，告知出现了错误。作为应用程序，在每一次申请内存后都应该检查返回值是否为0，如果是，则意味着出现了故障，应该采取一些措施挽救，这就增强了程序的“健壮性”。
若应用程序没有检查这个错误，它就会按照“思维惯性”认为这个值是给它分配的可用指针，继续在之后的运行中使用这块内存。真正的0地址内存区保存的是计算机系统中最重要的“中断描述符表”，绝对不允许应用程序使用。在没有保护机制的操作系统下(如DOS)，写数据到这个地址会导致立即死机，而在健壮的操作系统中，如Windows等，这个操作会马上被系统的保护机制捕获，其结果就是由操作系统强行关闭出错的应用程序，以防止其错误扩大。这时候，就会出现上述的“写内存”错误，并指出被引用的内存地址为“0x00000000”。
内存分配失败故障的原因很多，内存不够、系统函数的版本不匹配等都可能有影响。因此，这种分配失败多见于操作系统使用很长时间后，安装了多种应用程序(包括无意中“安装”的病毒程序)，更改了大量的系统参数和系统文件之后。
二、应用程序由于自身BUG引用了不正常的内存指针
在使用动态分配的应用程序中，有时会有这样的情况出现：程序试图读写一块“应该可用”的内存，但不知为什么，这个预料中可用的指针已经失效了。有可能是“忘记了”向操作系统要求分配，也可能是程序自己在某个时候已经注销了这块内存而“没有留意”等等。注销了的内存被系统回收，其访问权已经不属于该应用程序，因此读写操作也同样会触发系统的保护机制，企图“违法”的程序唯一的下场就是被操作终止运行，回收全部资源。计算机世界的法律还是要比人类有效和严厉得多啊！ 像这样的情况都属于程序自身的BUG，你往往可在特定的操作顺序下重现错误。无效指针不一定总是0，因此错误提示中的内存地址也不一定为“0x00000000”，而是其他随机数字。
如果系统经常有所提到的错误提示，下面的建议可能会有帮助：
1.查看系统中是否有木马或病毒。这类程序为了控制系统往往不负责任地修改系统，从而导致操作系统异常。平常应加强信息安全意识，对来源不明的可执行程序绝不好奇。
2.更新操作系统，让操作系统的安装程序重新拷贝正确版本的系统文件、修正系统参数。有时候操作系统本身也会有BUG，要注意安装官方发行的升级程序。
3.试用新版本的应用程序。
要实现多窗口的话不用父窗体更好，直接用单独的多窗体。用窗体的“.visible”就可以实现。譬如，要启动Form1，则“Form1.show”；要隐藏Form1，则“Form1.hide”；要退出Form1，则“Unload form1”。
（对窗体使用Show时同时也用了Load，即读取了窗体，不用另外用Load方法）
这说明你调用 API 传参存在问题。
首先有没有设置结构体内存对齐？
[StructLayout(LayoutKind.Sequential)] 加了吗？
COLORREF 不要用 Color 代替，用 int 代替
TCHAR cfFaceName[32] 定义为 Byte 数组也可以，带在传参前，必须初始化为 32 个长度
