VB.NET D3D Menü Hilesi Kodladım Bir Sorun Var.

 'Sağ Tık Kod
        If GetAsyncKeyState(Keys.Right) = -32767 Then
            If Label1.ForeColor = Color.Yellow Then
                Label13.Text = "[ON]"
                Label13.ForeColor = Color.Lime
                WriteLong("wolftü.bin", Csh.Text + &H3A3DC4, "2268606836") 'Name ESP On
            End If
            If Label2.ForeColor = Color.Yellow Then
                Label14.Text = "[ON]"
                Label14.ForeColor = Color.Lime
                WriteLong("wolftü.bin", Csh.Text + &H83973, "2665025140") ' No Recoil On
            End If
            If Label3.ForeColor = Color.Yellow Then
                Label15.Text = "[ON]"
                Label15.ForeColor = Color.Lime
                WriteLong("wolftü.bin", Csh.Text + &H150323, "1301090420") 'No Spread On
            End If
            If Label4.ForeColor = Color.Yellow Then
                Label16.Text = "[ON]"
                Label16.ForeColor = Color.Lime
                WriteLong("wolftü.bin", Csh.Text + &H115523, "2654543220") 'No Fall Damage On
            End If
            If Label5.ForeColor = Color.Yellow Then
                Label17.Text = "[ON]"
                Label17.ForeColor = Color.Lime
                WriteLong("wolftü.bin", Csh.Text + &H13597E, "2257258100") 'No Reload On
            End If
            If Label6.ForeColor = Color.Yellow Then
                Label18.Text = "[ON]"
                Label18.ForeColor = Color.Lime
                WriteLong("wolftü.bin", Csh.Text + &H192900, "3071218292") 'No Weapon Sp On
            End If
            If Label7.ForeColor = Color.Yellow Then
                Label19.Text = "[ON]"
                Label19.ForeColor = Color.Lime
                WriteLong("wolftü.bin", Csh.Text + &H13CD19, "4252861286") 'İnfinte Ammo On
            End If
            If Label8.ForeColor = Color.Yellow Then
                Label20.Text = "[ON]"
                Label20.ForeColor = Color.Lime
                WriteLong("wolftü.bin", Csh.Text + &H1374FB, "1574503796") 'Rapid Fire On
            End If
            If Label9.ForeColor = Color.Yellow Then
                Label21.Text = "[ON]"
                Label21.ForeColor = Color.Lime
                WriteLong("wolftü.bin", Csh.Text + &H726B90, "550") 'Crosshair On
            End If
            If Label10.ForeColor = Color.Yellow Then
                Label22.Text = "[ON]"
                Label22.ForeColor = Color.Lime
                WriteLong("wolftü.bin", Csh.Text + &HB8E41, "98110580") 'Speed On
            End If
            If Label11.ForeColor = Color.Yellow Then
                Label23.Text = "[ON]"
                Label23.ForeColor = Color.Lime
                WriteLong("wolftü.bin", Csh.Text + &H7955F, "1574503796") 'Early Respawn On
            End If

            If Label12.ForeColor = Color.Yellow Then
                Label24.Text = "[ON]"
                Label24.ForeColor = Color.Lime
                WriteLong("wolftü.bin", Csh.Text + &H111685, "3897951979") 'Respawn Where Died On
            End If
        End If
        'Sol Tık Kod
        If GetAsyncKeyState(Keys.Left) = -32767 Then
            If Label1.ForeColor = Color.Yellow Then
                Label13.Text = "[OFF]"
                Label13.ForeColor = Color.Red
                WriteLong("wolftü.bin", Csh.Text + &H3A3DC4, "2268606837") 'Name ESP Off
            End If
            If Label2.ForeColor = Color.Yellow Then
                Label14.Text = "[OFF]"
                Label14.ForeColor = Color.Red
                WriteLong("wolftü.bin", Csh.Text + &H83973, "2665025141") 'No Recoil Off
            End If
            If Label3.ForeColor = Color.Yellow Then
                Label15.Text = "[OFF]"
                Label15.ForeColor = Color.Red
                WriteLong("wolftü.bin", Csh.Text + &H150323, "1301090421") 'No Spread Off
            End If
            If Label4.ForeColor = Color.Yellow Then
                Label16.Text = "[OFF]"
                Label16.ForeColor = Color.Red
                WriteLong("wolftü.bin", Csh.Text + &H115523, "2654543221") 'No Fall Damage Off
            End If
            If Label5.ForeColor = Color.Yellow Then
                Label17.Text = "[OFF]"
                Label17.ForeColor = Color.Red
                WriteLong("wolftü.bin", Csh.Text + &H13597E, "2257258101") 'No Reload Off
            End If
            If Label6.ForeColor = Color.Yellow Then
                Label18.Text = "[OFF]"
                Label18.ForeColor = Color.Red
                WriteLong("wolftü.bin", Csh.Text + &H192900, "3071218293") 'No Weapon Sp Off
            End If
            If Label7.ForeColor = Color.Yellow Then
                Label19.Text = "[OFF]"
                Label19.ForeColor = Color.Red
                WriteLong("wolftü.bin", Csh.Text + &H13CD19, "4236084070") 'İnfinte Ammo Off
            End If
            If Label8.ForeColor = Color.Yellow Then
                Label20.Text = "[OFF]"
                Label20.ForeColor = Color.Red
                WriteLong("wolftü.bin", Csh.Text + &H1374FB, "1574503797") 'Rapid Fire Off
            End If
            If Label9.ForeColor = Color.Yellow Then
                Label21.Text = "[OFF]"
                Label21.ForeColor = Color.Red
                WriteLong("wolftü.bin", Csh.Text + &H726B90, "1") 'Crosshair Off
            End If
            If Label10.ForeColor = Color.Yellow Then
                Label22.Text = "[OFF]"
                Label22.ForeColor = Color.Red
                WriteLong("wolftü.bin", Csh.Text + &HB8E41, "98110581") 'Speed Off
            End If
            If Label11.ForeColor = Color.Yellow Then
                Label23.Text = "[OFF]"
                Label23.ForeColor = Color.Red
                WriteLong("wolftü.bin", Csh.Text + &H7955F, "1574503797") 'Early Respawn Off
            End If
            If Label12.ForeColor = Color.Yellow Then
                Label24.Text = "[OFF]"
                Label24.ForeColor = Color.Red
                WriteLong("wolftü.bin", Csh.Text + &H111685, "3897951860") 'Respawn Where Died Off
            End If
        End If
    End Sub
End Class