insert short cut in start up by vb

[blackhacking21]

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