使用VB资源编辑器(如果没有,请选择菜单-外接程序-外接程序管理器,在里面找到VB资源编辑器选择启动和加载即可)添加CUSTOM资源,保存
然后在VB资源里加载即可,下面以编号为101的CUSTOM资源为例子
Private Sub Form_Load()
Dim Temp() As Byte
Temp = LoadResData(101, "CUSTOM")
Open "C:\123456.exe" For Binary As #1
Put #1, , Temp()
Close #1
End Sub
