How to Sent shortcut to the Desktop?

[etea]

How to sent a shortcut to the desktop?
Thanks for any help! etea

[Matthew Gates]

Try this:

'STKIT432.dll - VB 32
'Vb5STKIT.dll - VB 5
'VB6STKIT.DLL - VB 6
 
 
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" _
(ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, _
ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As _
Long
 
 
Private Sub Command1_Click()
     fCreateShellLink "..\..\Desktop", "Shortcut to My Program", "C:\MyProg\MyProg.exe", ""
End Sub

[etea]

THank you!
Do you have another method to sent shortcut to the desktop?

[Matthew Gates]

Why would you need another method? Is this method not good enough?