Option Explicit
Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String _
, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String _
, ByVal fPrivate As Long, ByVal sParent As String) As Long
Private Sub Form_Load()
fCreateShellLink "StartUp", "m", "D:\", "", True, "$(Programs)"
End Sub
Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String _
, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String _
, ByVal fPrivate As Long, ByVal sParent As String) As Long
Private Sub Form_Load()
fCreateShellLink "StartUp", "m", "D:\", "", True, "$(Programs)"
End Sub