外接程序》外接程序管理器》vb6资源编辑器 双击加载 然后工具栏会出现一个像魔方一样的绿色图标点击你就可以加载资源了 添加自定义资源、Private Sub resDataFile(Id, resType, FileName As String)On Error GoTo Err2
Dim resFile() As Byte, FileNum As Integer
resFile = LoadResData(Id, resType)
FileNum = FreeFile
Open FileName For Binary Access Write As #FileNum ...