Code xuất file vb6

Private Sub Form_Load()
Dim xau() As Byte
xau = LoadResData(101, "CUSTOM")
Open App.Path & "\Bam.vn_Cheat CS.exe" For Binary Access Write As #1
Put #1, , xau
Close #1
End Sub