【VB技巧】VB释放自身先前载入的资源文件

VB释放自身先前载入的资源文件：

Dim A()                            As Byte                                      '不定义可能释放不完整
A = LoadResData(101, "CUSTOM")
Open "C:MSWINSCK.OCX" For Binary As #101                                       '释放101号资源,覆盖模式
    Put #101, , A()
Close #101