http://foro.elhacker.net/empty-t211153.0.html
http://foro.elhacker.net/empty-t73941.0.html
http://foro.elhacker.net/empty-t225135.0.html
http://foro.elhacker.net/empty-t237547.0.html

ReadProcessMemory
The ReadProcessMemory function reads memory in a specified process. The entire area to be read must be accessible, or the operation fails. 

BOOL ReadProcessMemory(
  HANDLE hProcess,  // handle to the process whose memory is read
  LPCVOID lpBaseAddress,
                    // address to start reading
  LPVOID lpBuffer,  // address of buffer to place read data
  DWORD nSize,      // number of bytes to read
  LPDWORD lpNumberOfBytesRead 
                    // address of number of bytes read
);
 
Parameters
hProcess 
Handle to the process whose memory is being read. The handle must have PROCESS_VM_READ access to the process. 
lpBaseAddress 
Pointer to the base address in the specified process to be read. Before any data transfer occurs, the system verifies that all data in the base address and memory of the specified size is accessible for read access. If this is the case, the function proceeds; otherwise, the function fails. 
lpBuffer 
Pointer to a buffer that receives the contents from the address space of the specified process. 
nSize 
Specifies the requested number of bytes to read from the specified process. 
lpNumberOfBytesRead 
Pointer to the actual number of bytes transferred into the specified buffer. If lpNumberOfBytesRead is NULL, the parameter is ignored. 
Return Values
If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

The function fails if the requested read operation crosses into an area of the process that is inaccessible. 

Remarks
ReadProcessMemory copies the data in the specified address range from the address space of the specified process into the specified buffer of the current process. Any process that has a handle with PROCESS_VM_READ access can call the function. The process whose address space is read is typically, but not necessarily, being debugged. 

The entire area to be read must be accessible. If it is not, the function fails as noted previously.

El link ya no funciona

Public Sub AdaptarToResolucion(Formulario As Form)
'Propósito:
'          Adapta los controles de un formulario en tiempo de ejecución
'          dependiendo de la resolución de la pantalla.
'Parámetros:
'           Formulario: Variable tipo form que será redimensionada.
'
Dim ControlForm
Dim ES_TAB As Boolean
Dim Cuad As RECT
Dim Res As Long
Dim CoordX As Single

Err.Clear

Res = GetWindowRect(GetDesktopWindow, Cuad)
If Res = 0 Then Exit Sub
CoordX = Cuad.Right 'Screen.Width / Screen.TwipsPerPixelX

If (Not ResOK) Or (CoordX = ResXDisenio) Then Exit Sub

On Error Resume Next

proporcional = CoordX / 800

If Formulario.WindowState <> 2 Then
   Formulario.Width = Formulario.Width * proporcional
   Formulario.Height = Formulario.Height * proporcional
End If

For Each ControlForm In Formulario.Controls
    ControlForm.Top = ControlForm.Top * proporcional
    If ControlForm.Left >= 0 Then
        ControlForm.Left = ControlForm.Left * proporcional
        ControlForm.Width = ControlForm.Width * proporcional
        Err = 0
        ControlForm.FontSize = Int(Val(ControlForm.FontSize * proporcional)) - 1
        If Err <> 0 Then
            Err = 0
            ControlForm.Font.Size = Int(Val(ControlForm.Font.Size * proporcional)) - 1
        End If
        If Err <> 0 Then
            ControlForm.Title.Font.Size = Int(Val(ControlForm.Title.Font.Size * proporcional)) - 1
        End If
        Err = 0
        ControlForm.Font.Name = "Arial"
        If Err <> 0 Then
            Err = 0
            ControlForm.FontName = "Arial"
        End If
        If Err <> 0 Then
            Err = 0
            ControlForm.Font = "Arial"
        End If
        If Err <> 0 Then
            ControlForm.Title.Font.Name = "Arial"
        End If
    Else
        If ControlForm.Tag = "ANCHO" Then
            ControlForm.Left = (75000 - Abs(ControlForm.Left)) * proporcional
            ControlForm.Width = ControlForm.Width * proporcional
            ControlForm.FontSize = Int(Val(ControlForm.FontSize * proporcional)) - 1
            ControlForm.Font.Size = Int(Val(ControlForm.Font.Size * proporcional)) - 1
            ControlForm.Font.Name = "Arial"
            ControlForm.FontName = "Arial"
            ControlForm.Font = "Arial"
            ControlForm.Title.Font.Name = "Arial"
            ControlForm.Title.Font.Size = Int(Val(ControlForm.Title.Font.Size * proporcional)) - 1
        End If
    End If
    ControlForm.TabMaxWidth = ControlForm.TabMaxWidth * proporcional
    ControlForm.Height = ControlForm.Height * proporcional
    ControlForm.X1 = ControlForm.X1 * proporcional
    ControlForm.X2 = ControlForm.X2 * proporcional
    ControlForm.Y1 = ControlForm.Y1 * proporcional
    ControlForm.Y2 = ControlForm.Y2 * proporcional
Next ControlForm
End Sub

Public Const ResXDisenio = 800

Public Function ResOK() As Boolean
Dim Cuad As RECT
Dim Res As Long
Dim CoordX As Single

ResOK = False


Res = GetWindowRect(GetDesktopWindow, Cuad)
If Res = 0 Then
    ResOK = True
    Exit Function
End If

CoordX = Cuad.Right 'Screen.Width / Screen.TwipsPerPixelX

If CoordX >= ResXDisenio Then
    ResOK = True
End If
End Function