Float 1 Offset

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WriteDMAInteger("TubeTycoon", &H7566B8, Value)
    End Sub

    Class uTorrent
        Public Shared exe As Integer = &H400000  '(uTorrent.exe + &H3566B8 = &H7566B8)
    End Class


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WriteDMAInteger("TubeTycoon", uTorrent.exe + &H3566B8, Value)
    End Sub

Public Class Form1

    Private Declare Function WriteProcessMemory4Me Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Const PROCESS_ALL_ACCESS = &H1F0FF
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer

    Public Shared hProcess As IntPtr

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim gamewindow As Process() = Process.GetProcessesByName("TubeTycoon")
        hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, gamewindow(0).Id)
        WriteInteger(hProcess, &HmyAddress, myValue)

    End Sub

    Public Sub WriteInteger(ByVal Process As IntPtr, ByVal Address As Integer, ByVal Value As Integer, Optional ByVal nsize As Integer = 1)
        WriteProcessMemory4Me(Process, Address, CInt(Value), nsize, 0)
    End Sub
End Class