Sims 3 Trainer Source

Public Class Form1
    Dim Base As Int32
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MsgBox("Please make sure the game is loaded before the trainer!")
        Dim p As Process = Process.GetProcessesByName("TS3W")(0)
        For Each moz As System.Diagnostics.ProcessModule In p.Modules
            If moz.FileName.IndexOf("TS3W.exe") <> -1 Then
                Base = moz.BaseAddress.ToInt32
            End If
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ammount As String = TextBox1.Text
        Try
            WriteDMAInteger("TS3W", Base + &HDF282C, Offsets:={&H238, &HC0, &H14, &H8, &H120}, Value:=ammount, Level:=5, nsize:=4)
            My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Asterisk)
        Catch
        End Try
    End Sub
End Class