用VB创建开始菜单快捷方式(无需其他DLL)

Option Explicit
　　Private Sub Command1_Click()
　　CreateProgManGroup Me, "测试", "test.grp"
　　CreateProgManItem Me, "d:\ghost.exe", "Ghost"
　　CreateProgManItem Me, "d:\setupQQ.exe", "QQ"
　　End Sub
　　Sub CreateProgManGroup(X As Form, GroupName$, GroupPath$)
　　Dim i As Integer
　　X.Label1.LinkTopic = "ProgMan|Progman"
　　X.Label1.LinkMode = 2
　　Rem 空循环使DDE有时间执行
　　For i = 1 To 10
　　DoEvents
　　Next
　　X.Label1.LinkTimeout = 100
　　Rem LinkExecute 是在DDE通道中传送这样的命令
　　'──建立一个名为GroupName $的程序组。
　　X.Label1.LinkExecute "[ CreateGroup (" + GroupName$ + Chr$(44) + GroupPath$ + ") ]"
　　X.Label1.LinkTimeout = 50 '恢复Label1 的属性值
　　X.Label1.LinkMode = 0
　　End Sub
　　Sub CreateProgManItem(X As Form, CmdLine$, IconTitle$)
　　Dim i As Integer
　　X.Label1.LinkTopic = "ProgMan|Progman"
　　X.Label1.LinkMode = 2
　　For i = 1 To 10
　　DoEvents
　　Next
　　X.Label1.LinkTimeout = 100
　　X.Label1.LinkExecute "[AddItem(" + CmdLine$ + Chr$(44) + IconTitle$ + Chr$(44) + ", ,) ]"
　　X.Label1.LinkTimeout = 50 '恢复Label1 的属性值
　　X.Label1.LinkMode = 0
　　Screen.MousePointer = 0
　　End Sub