VB创建开始菜单快捷方式

Private Sub Command1_Click()

Label1.LinkTopic = "progman|progman"

Label1.LinkMode = 2

Label1.LinkExecute "[creategroup(剑鱼行动)]"

Label1.LinkExecute "[additem(c:\windows\notepad.exe)]"

End Sub

Private Sub Command2_Click()

Label1.LinkTopic = "progman|progman"

Label1.LinkMode = 2

Label1.LinkExecute "[deletegroup(黑客帝国)]"

End Sub

Private Sub Command3_Click()

Label1.LinkTopic = "progman|progman"

Label1.LinkMode = 2

Label1.LinkExecute "[creategroup(黑客帝国)]"

End Sub