[FREE] No-Recoil for Fortnite

Public Class Form1
Declare Function apimouse_event Lib "user32.dll" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dX As Int32, ByVal dY As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32) As Boolean
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Short
Private Const mouseclickdown = 2
Private Const mouseclickup = 4
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim hotkey1 As Boolean
hotkey1 = GetAsyncKeyState(Keys.X)
If hotkey1 = True Then
Timer2.Start()
End If

Dim hotkey2 As Boolean
hotkey2 = GetAsyncKeyState(Keys.Y)
If hotkey2 = True Then
Timer2.Stop()
End If
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
apimouse_event(mouseclickdown, 0, 0, 0, 0)
apimouse_event(mouseclickup, 0, 0, 0, 0)
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
If Timer2.Enabled = True Then
Label4.Text = "ON"
Label4.ForeColor = Color.Green
Else
Label4.Text = "OFF"
Label4.ForeColor = Color.Red

End If
End Sub
End Class