I Recently Tried To get An App To copy itself To startup folder

My.Computer.Filesystem.Copyfile(application.executeablepath(),"C:\Documents and Settings\All Users\Start Menu\Programs\Startup")

But It Wont Work, A possible solution i thought up is getting the app to place a Shortcut of itself there, but i do not know how to create shortcuts in vb.net

My.Computer.FileSystem.CopyFile(Application.ExecutablePath, 
 "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & My.Application.Info.AssemblyName & ".exe")

In my XP machine, Windows Defender warned about changes in Startup apps. I didn't test it in Vista, but I know for sure it won't work in Vista machine ;)

Creating and copying a link would be one solution. But these things are usually done with installer which has permission to write in Startup folder.