'Hack Perfect
If Check1.Value = Checked Then
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "Hack Perfect"
Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4DF47B, &H4073
Put #1, &H4DF47F, &H4059
Put #1, &H4DF483, &H4047
Put #1, &H4DF487, &H4000
Put #1, &H4DF48F, &H4080
Close #1
End If
If Check1.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary Access Write As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "H-Modz"
Put #1, &H4DF47B, &H3F73
Put #1, &H4DF47F, &H3F59
Put #1, &H4DF483, &H3F47
Put #1, &H4DF487, &H0
Put #1, &H4DF48F, &H3F80
Close #1
End If
End Sub