AddProgQBar

'Windows API/Global

Declare Function fCreateShellLink Lib "STKIT432.DLL" _
(ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, _
ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Dim longReturn As Long
longReturn = fCreateShellLink("..\..\Application Data\Microsoft\" & _
"Internet Explorer\QuickLaunch", "Shell", "C:\command.com", "")"