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" […]