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"
