对，就如下面这样就可创建成快捷方式
Private Sub Command1_Click()
Call fCreateShellLink("\启动", "记事本", GetWindowsPath & "\Notepad.exe", "", True, "$(Programs)")
End Sub

当然，创建的是记事本的快捷方式，你要创建别的程序，就要改了。

测试.exe

对，就如下面这样就可创建成快捷方式
Private Sub Command1_Click()
Call fCreateShellLink("\启动", "测试", GetWindowsPath & "\Notepad.exe", "", True, "$(Programs)")
End Sub

这样就可以了？

?