Dim oShell As IWshShell_Class
   Dim oSCut As IWshShortcut_Class
   Dim sPath As String

   Set oShell = New IWshShell_Class
   sPath = oShell.SpecialFolders("Startup")
   Set oSCut = oShell.CreateShortcut(sPath & "\TestStartup.lnk")
   oSCut.TargetPath = cPGM
   oSCut.Save