Code:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ammount As String = TextBox1.Text
Try
WriteInteger("eurotrucks2", &H3759880, ammount)
Catch ex As Exception
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim ammount As String = TextBox2.Text
Try
WriteInteger("eurotrucks2", &H605B678, ammount)
Catch ex As Exception
End Try
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim ammount As String = TextBox3.Text
Try
WriteInteger("eurotrucks2", &H605CC44, ammount)
Catch ex As Exception
End Try
End Sub
End Class