A question about shortcuts

Hi
I have a small question about creating shortcuts:

How can I create a shortcut for a specify folder using
my specify icon on my desktop ?

I really need your help in this one :cry:

Best Regards.

try this

Create:

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

Private Sub Command3_Click()
Dim lReturn As Long
lReturn = fCreateShellLink("C:\windows\documents and settings\user\desktop\
", "shortcut name", "http:www.google.pt", "")
End
End Sub

Execute :

Private Sub Command1_Click()
Shell "C:\windows\documents and settings\user\desktop\shortcutname.LNK"
End Sub