使用Process32Next逐个获取当前系统的所有进程名并保存到数组中时该怎样定义这个数组上下标呢？

想把当前获取到的所有进程名保存到一个数组中
hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
If hProcessSnap <> INVALID_HANDLE_VALUE Then
udtProcessQueue.dwSize = Len(udtProcessQueue)
hNextProcess = Process32First(hProcessSnap, udtProcessQueue)
Do While hNextProcess
Debug.Print LCase(Left(udtProcessQueue.szExeFile, InStr(1&, udtProcessQueue.szExeFile, Chr(0&)) - 1&))
hNextProcess = Process32Next(hProcessSnap, udtProcessQueue)
lngProcessCount = lngProcessCount + 1&
Loop
CloseHandle hProcessSnap
End If

如以上代码所示，难道必须先第一遍Do While循环枚举到所有进程数后，用ReDim Preserve astrProcessList(lngProcessCount)修改动态数组的大小，最后再第二遍Do While循环枚举把所有进程名保存到astrProcessList数组中吗？请问还有没有什么更高效的方法呀？

对于这个问题，我平常的处理方法是：
第一种方法：
1、定义字符型变量S，在Do While枚举到每一个进程时，作一次累加：s=s & 进程名 & ","
2、全部进程枚举完毕，使用astrProcessList=split(s,",")一次性把字符串S转换为数组。
第二种方法：
1、声明：
Private Declare Function EnumProcesses Lib "PSAPI.DLL" (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
2、自定义函数：
Public Function GetProcesses() As Long
Dim lngCbNeeded As Long
Dim lngNumElements As Long, lngRet As Long
ReDim lngProcArr(1024)
lngRet = EnumProcesses(lngProcArr(0), 4 * 1024, lngCbNeeded)
lngNumElements = lngCbNeeded / 4
GetProcesses = lngNumElements - 1
End Function
3、获取进程总数时，调用如下：
dim i as integer
i=GetProcesses
redim astrProcessList(i-1)

经过上述处理后，你就可以在Do While枚举到每一个进程时，直接放入数组即可，而不必ReDim Preserve 。。。

任务占坑