初学VB.Net，写了个小程序，请大虾们帮忙看看

初学VB.Net，写了个小程序，请大虾们帮忙看看，为何执行到If (Process32First(l, PE32)) <> 0 Then '遍历第一个进程
这一行报错：Attempted to read or write protected memory. This is often an indication that other memory is corrupt.完整代码如下：
Public Class FMain
    Public Structure processentry32
        Public dwsize As Long
        Public cntusage As Long
        Public th32processid As Long
        Public th32defaultheapid As Long
        Public th32moduleid As Long
        Public cntthreads As Long
        Public th32parentprocessid As Long
        Public pcpriclassbase As Long
        Public dwflags As Long
        Public szexefile As String
    End Structure    Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
    Private Declare Function CloseToolhelp32Snapshot Lib "kernel32" (ByVal hObject As Long) As Boolean
    'Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, ByRef lppe As processentry32) As Long    <DllImport("KERNEL32.DLL", EntryPoint:="Process32First", SetLastError:=True, _
    CharSet:=CharSet.Unicode, ExactSpelling:=True, _
    CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function Process32First(ByVal hSnapshot As Long, ByRef lppe As processentry32) As Long    End Function
    Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, ByVal lppe As processentry32) As Long
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
    Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long
    Private Declare Sub ExitProcess Lib "Kernel32" (ByVal ProcessID As Long)    Const TH32CS_SNAPHEAPLIST = &H1
    Const TH32CS_SNAPPROCESS = &H2
    Const TH32CS_SNAPTHREAD = &H4
    Const TH32CS_SNAPMODULE = &H8
    Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
    Const TH32CS_INHERIT = &H80000000    '获得当前所有的系统进程 
    Public Function GetAllProcess() As ArrayList
        Dim PE32 As processentry32
        Dim l As Long
        Dim l1 As Long
        Dim flag As Boolean
        Dim mName As String
        Dim i As Integer
        Dim PID As Long        GetAllProcess = Nothing
        PE32 = Nothing        l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)        If l Then
            PE32.dwsize = Len(PE32)
            If (Process32First(l, PE32)) <> 0 Then '遍历第一个进程
                Do
                    i = InStr(1, PE32.szexefile, Chr(0))
                    mName = LCase(Microsoft.VisualBasic.Left(PE32.szexefile, i - 1))
                    'If mName = "Word.exe" Then
                    PID = PE32.th32processid
                    mName = PE32.szexefile
                    GetAllProcess.Add(mName + ":" + PID)
                    'Dim mProcID As Long
                    'mProcID = OpenProcess(1&, -1&, PID)
                    'TerminateProcess(mProcID, 0&)
                    flag = True
                    'Else
                    'flag = False
                    'End If
                Loop Until (Process32Next(l, PE32) < 1) '遍历所有进程知道返回值为False
            End If
            l1 = CloseHandle(l)
        End If
        Return GetAllProcess()
    End Function    Public Sub ShowAllProcess()
        Dim AllPE As ArrayList
        AllPE = GetAllProcess()
        If AllPE.Count > 0 Then
            LV_Process.Clear()
            Dim PECount As Integer
            PECount = 0
            While PECount < AllPE.Count
                LV_Process.Items.Add("Word:" + Str(AllPE.Item(PECount)))
                PECount = PECount + 1
            End While
        End If
    End Sub    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnQuit.Click
        'Me.Close()
        ExitProcess(0)
    End Sub    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ShowAllProcess()
    End Sub
End Class