Skin1.LoadSkin VB.App.Path & "\" & "skinh.she"
Skin1.ApplySkin Me.hWnd
提示 实时错误58 文件已存在。
下面是我从RES里读取创建文件的代码：
Dim APP1() As Byte
If Dir(App.Path & "\skinh.she") = "" Then
APP1 = LoadResData(101, "CUSTOM")
Open App.Path & "\skinh.she" For Binary As #1
Put #1, , APP1
Close #1
End If


错误停在这句话上 Skin1.LoadSkin VB.App.Path & "\" & "skinh.she"

应该是你上次释放的文件依旧在被使用、所以无法覆盖掉原来的文件、、