If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
'Defines the keys to activate the change under this If statement.
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
'Defines the variables to be set and what type of value type they are.
'Make sure the last variable is set to a single.
Call ReadALong("WarRock", &Hadress, SJ)
'Reads a long value type from the address adress and sets the outcome
'of that to the variable SJ
SJ1 = SJ + &H180
'Sets SJ1 to the variable set earlier (SJ) + the pointer 180.
SJ2 = Text1.Text
'SJ2 is set to what number is in the text box.
Call WriteAFloat("WarRock", SJ1, SJ2)
'Writes a FLOAT at the point SJ1 (address + pointer) and sets it to
'what is in the text box.
End If
'Ends the If statement for the hotkeys.
form1.enabled = false form1.visible = false
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
If e.CloseReason = CloseReason.WindowsShutDown Then
e.Cancel = True
End If
End Sub
