

Dim Value1 As Long
Call ReadALong("WarRock", &H894E28, Value1)
Text1.Text = Value1
Private Sub Command1_Click()
Dim value As Long
Dim Value1 As Long
Call ReadALong("Warrock", &H894E28, value)
Value1 = value + &H180
Call WriteALong("Warrock", Value1, XXXX)
End Sub


GREAT GUIDE, SO EASY TO UNDERSTAND!!! ill add to your rep and thank you
keep it up !!