icons on the desktop

[BIacksun]

How can I put icons on the desktop?

[Nitro]

Option Explicit

'NOTE:
'In Visual Basic 5.0 & 6.0 = Vb5stkit.dll
'In Visual Basic 4.0       = Stkit432.dll

Private Declare Function fCreateShellLink Lib "Vb5STKIT.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Private Sub cmdRegular_Shortcut_Click()
  'PURPOSE: Add to Startup Group
  'Note that on Windows NT, the shortcut will not actually
  'appear in the Startup group until your next reboot.
  Call fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\calc.exe", "")
  MsgBox "Shortcut of calculator has resided in \Startup"
  
  'PURPOSE: Add to Desktop
  'Call fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")
  
  'PURPOSE: Add to Program Menu Group
  'Call fCreateShellLink("", "Shortcut to Calculator", "c:\windows\calc.exe", "")
End Sub

[BIacksun]

thanx