Private Sub Command1_Click()
Dim Value1 As Long
Call ReadALong("WarRock", &H7DB120, Value1)
Text1.Text = Value1
End Sub
Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub
Private Sub Timer2_Timer()
Timer1.Interval = 0
End Sub
Private Sub Timer3_Timer()
Timer1.Interval = 1
End Sub
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub
Private Sub Command1_Click()
Dim Value1 As Long
Call ReadALong("WarRock", &H7DB120, Value1)
Text1.Text = Value1
End Sub
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub
