VB.NET里设置程序的开机自动运行

imports   microsoft   win32  
   
   
  dim   dir   as   string=   directory.getcurrentdirectory()  
  dim   exedir   as   string=dir   &   "xxx.exe"  
  dim   key1   as   registrykey=registry.localmachine  
  dim   key2   as   registrykey=key1.createsubkey("software")  
  dim   key3   as   registrykey=key2.createsubkey("microsoft")  
  dim   key4   as   registrykey=key3.createsubkey("windows")  
  dim   key5   as   registrykey=key4.createsubkey("currentversion")  
  dim   key6   as   registrykey=key5.createsubkey("run")  
  key6.setvalue("myexe",exedir)