可以将文件等分成两部分，分别用两个private读取就是2线程。
成都创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站设计、成都做网站、海淀网络推广、小程序定制开发、海淀网络营销、海淀企业策划、海淀品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联公司为所有大学生创业者提供海淀建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com
内存解决方案：不要等程序自动GC，自己手动释放不需要内存。
缺陷：可能会浪费时间。
使用wmi
类“Win32_Processor”中LoadPercentage属性为当前的cpu使用率
示例代码： Private Sub Timer1_Timer()
Dim WMI服务 As Object
Dim 对象 As Object
Dim 子对象 As Object
Dim 电脑名 As String
Dim 刷新 As Long
刷新 = 0
电脑名 = "." '表示本地计算机
Set WMI服务 = GetObject("winmgmts://" 电脑名 "/root/cimv2")
Set 对象 = WMI服务.InstancesOf("Win32_Processor")
Me.CurrentX = 0
Me.CurrentY = 0
For Each 子对象 In 对象
If 刷新 = 0 Then
刷新 = 1
Me.Cls
End If
Me.Print 子对象.Name "[" 子对象.CurrentClockSpeed "Hz] 使用率:" _
子对象.LoadPercentage "%"
Next
End Sub
内存不会增加，是自动释放，重新定义New ArrayList后集合aa原值所占空间自动释放
实际上 Dim aa as ArrayList : aa = New ArrayList可以合并放在循环体内如
Do While .....
Dim aa As New ArrayList
........
........
Loop
.net 有自己的资源回收机制GC。
如果变量不再使用了，所有引用该变量的其它变量也都没用了（dispose或者赋值为空了），那么这些没用的变量会定时的被GC自动回收，不需要自己去管理。
如果非要自己释放资源的话，可以使用 GC.Collect() 进行释放，但是并不能保证一次GC.Collect()就可以释放掉所有没有用的资源，可能要经过好几轮GC.Collect()才能释放干净。
所以还是建议不要手动回收了，让系统根据要求自动回收吧。
总量：My.Computer.Info.TotalPhysicalMemory
可用的：My.Computer .Info .AvailablePhysicalMemory
已使用量=总量-可用的
一般.net的垃圾回收机制会在过程结束后进行垃圾回收，但是垃圾回收是比较消耗系统资源的，所以不可能经常被调用。
如果你需要强制进行垃圾回收，可在过程最后添加如下代码：
GC.Collect()
强制进行垃圾回收
