Dosya gömme kodları

Module eklenecek kodlar :

Option Explicit

Sub VeriÇıkar(Numara As Byte, Tür As String, Dosya As String)
Dim Buffer() As Byte
Buffer = LoadResData(Numara, Tür)
Open Dosya For Binary As #1
Put #1, , Buffer()
Close #1
End Sub

Formloada eklenecek kodlar :

VeriÇıkar 101, "CUSTOM","C:\deneme.exe"