主题：开机启动

老师看了这个帖子，

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73350&replyID=&skin=1

我设置了，代码放在afterOpenProject，开机没有自动启动哪儿有问题？

Dim starupPath = ProjectPath & "集团OA系统.exe"

Dim loca = Microsoft.Win32.Registry.LocalMachine
Dim run = loca.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run")

'run.SetValue("集团OA系统", False) '取消开机运行
run.SetValue("集团OA系统", starupPath) '设置开机运行
loca.Close()