Private Sub Check1_Click()
Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H56d3e0, &H7600
Put #1, &H56d3e7, &H322F
Close #1
End Sub
Private Sub Check2_Click()
Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H56d3e0, &H7600
Put #1, &H56d3e7, &H332F
Close #1
End Sub

Private Sub Check3_Click()
Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H56D5C0, &H7600
Close #1
End Sub

Private Sub Check4_Click()
Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H52f4ef, &H4500
Close #1
End Sub



Private Sub Command1_Click()
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "tuy ban chon thong bao ^^"
dd = App.Path & "\Patcher.exe"
Shell dd & " " & dd1, vbNormalFocus
Close #1
End Sub