'Detta exempel kopierar sig själv till C:\, koden går bra att lägga i T.ex Command1
Dim Copy

If not App.Path = "C:\" Then
Copy = Copyfile(App.Path & "\" & App.EXEName & ".exe", "c:\", 1)
End If