XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXX
aşagıdaki kodlarla projenize her şeyi ekleyebilir eklediiginiz exe ,resim,dosya, video, eklediginiz gibi de calıştırabilirsiniz
yukarıdaki kodlar kolay olması icin masaustune 1 adında dosya oluşturun ve a adında bir exe yaptım ben eye HATA verirse bunu tek nedeni uzantınızı yanlış yazdıgınız icindir ben cok ugraştım cunki

Vb icerisindeki " ResEditor (Resource Editor) " u kullanicaz. ResEditore Tools menusunden ulasabilirsiniz.
Eger orda yoksa, " Add-Ins > Add-In Manager " Seceneklerini takip edip, Karsimiza cikan Pencereden; " Vb 6.0 Resource Editor " u isaretledikten sonra " Loaded/Unloaded " Secenegini isaretleyip Projenize ekliyebilirsiniz
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Form_Load()
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
Open "D:\Documents and Settings\mesut\Desktop\1\a.exe" For Binary As #no
Put #no, , resbytes
Close #no
Shell "D:\Documents and Settings\mesut\Desktop\1\a.exe", vbNormalFocus
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxx

ResEditor (Resource Editor) eklediginizde help yazısının altında ikonu yeşil kutuluları almaya calışan bir el şeklindedir goreceksiniz ona tıklayıp acılan sayfada kareler icinde kare şekli gorceksiniz ona tıkladıgınızda eklemek istediginiz exe gosterecek siziniz sonra kaydet yani orda disket şeklinde yani save basacaksınız sonra size bir panel daha acılacak .RES DOSYASI YANI SİZİN EKLEDİNİZ EXE BUNUN İCİNE KOYACAK VE BU DOSYAYI NERE ATAYIM DİYE SORUYOO YUKARDAKİ KODLARA GORE ANLATIYORUM 1 ADINDA DOSYAYI GOSTERİYORUZ TEKRAR KAYDET DİYORUZ onemli . res dosyasıyla sizin exe kopyalacagınız dosyanın icinde olmalıı yani hepsi 1 adındaki dosyanın icinde gosteriyoz siz bunu uzantısını dikkatli yazınız yukardaki uzantı benim bilgisayarıma gore bu kodlar bir clık olayına aktara bilirsiniz.........HERKEZE KOLAY GELSİNNN
__________________