同时释两个资源文件为什么第二个释放不出来？

Private Sub Form_Load()
'释放html文件
Dim htm() As Byte
Dim s
s = App.Path & "\newpos.html"
htm = LoadResData(101, "CUSTOM")Open s For Binary Access Write As #1
Put #1, , htm
Close #1'释放缓冲图片
Dim wait() As Byte
Dim s2
s2 = App.Path & "wait.gif"
wait = LoadResData(102, "CUSTOM")Open s2 For Binary Access Write As #2
Put #2, , wait
Close #2第二个“缓冲图片”为啥释放不出？该咋改？