Como criar atalho utilizando o Visual Basic 6 (VB6)

Tenho um programa feito na linguagem Visual Basic 6 (VB6), e preciso fazer com que ele crie um atalho no Windows XP.

Existem várias formas de fazer isso, a que eu acho mais simples é a seguinte:

[sourcecode language=”VB”]
Dim lobj_Atalho As IWshRuntimeLibrary.IWshShortcut
Dim WshShell As New IWshRuntimeLibrary.WshShell

Set lobj_Atalho = WshShell.CreateShortcut("C:Atalho.lnk")
lobj_Atalho.TargetPath = "C:pastaprogramaaserexecutadopeloatalho.exe"
lobj_Atalho.WindowStyle = 1
lobj_Atalho.Description = "Descrição do Atalho"
lobj_Atalho.WorkingDirectory = "C:pasta"
lobj_Atalho.IconLocation = "C:pastaprogramaaserexecutadopeloatalho.exe, 0"
lobj_Atalho.Save
[/sourcecode]

Lembre-se que é necessário adicionar a referência “Windows Script Host Object Model” (C:WindowsSystem32wshom.ocx) ao projeto.