Public Sub MemInfo(ByVal pHandle As IntPtr)
    Dim Addy As New IntPtr()
    While True
        Dim MemInfo As New MEMORY_BASIC_INFORMATION()
        Dim MemDump As Integer = VirtualQueryEx(pHandle, Addy, MemInfo, Marshal.SizeOf(MemInfo))
        If MemDump = 0 Then
            Exit While
        End If
        If (MemInfo.State And &H1000) <> 0 AndAlso (MemInfo.Protect And &H100) = 0 Then
            MemReg.Add(MemInfo)
        End If

        Addy = New IntPtr(MemInfo.BaseAddress.ToInt32() + MemInfo.RegionSize)

    End While
End Sub