Needs Nfd Tuts in VB6

[djnitro12]

I need a tuts whit nfd in vb6 plz !

[virus7799]

I need a tuts whit nfd in vb6 plz !

Here's your timer:


'No Fall Damage
Private Sub Timer1_Timer()
Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("WarRock", &H1332A20, NFD)
NFD1= NFD + &H260
Call WriteAFloat("WarRock", NFD1, -9999)
End Sub

Make sure you go to properties and set interval to 1.

Now buttons:

For On:


Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

For off:

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Thank me if that helped.