用vb解压缩

Private Sub form1_load()
if app.path <>"c:\456" then
on error resume next '错误捕获
FileCopy "c:\123\xx.exe", "c:\456\xx.exe" '复制自身
shell "c:\456\xx.exe" '调用它
end
end if
end sub

自我复制,请采纳!谢谢