Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As _
  Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer As Long, ByVal nSize _
  As Integer, ByVal lpNumberOfBytesWritten As Integer) As Long
 
 Public Function SetValue(ByVal Address As Long, ByVal Value As Single)
        Dim hproc As IntPtr
        Dim bytes_written, return_value As Long
        If True Then
 
            hproc = OpenProcess(Process_VMOperation Or Process_VMWrite, False, _
              MainForm.Test_Process.Id)
            return_value = WriteProcessMemory(hproc, Address, Value, 4, _
            bytes_written)
            MainForm.Debug("write handle: " & hproc.ToString)
            MainForm.Debug("Return value:" & return_value)
            MainForm.Debug("Bytes written: " & bytes_written)
            CloseHandle(hproc)
            Return 1
        Else
            Return 0
        End If
    End Function