VB6 to VB.Net

[VBbbq]

I changed the openprocess to:

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal blnheritHandle As Boolean, ByVal dwAppProcessId As Integer) As IntPtr

Seems to work.. Now I just need to resolve this:

LINE: Call GetSystemInfo(si)

Additional information: Attempted to read or write protected memory. This is often an indication that other memory is corrupt.