Making a link on the Quick Lauch bar?

[Evan]

Can someone tell me how to put a
link on that quick lauch bar?

Use the fCreateShellLink api function.

'In Visual Basic 5.0, change Stkit432.dll in the following
'statement to Vb5stkit.dll.  Stkit432.dll is for Visual Basic 4.0
'For VB6, change it to VB6STKIT.DLL


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


Usage

fCreateShellLink "", "MyProgram", _
    "c:\myprog\myprog.exe", ""

[Evan]

HI,

It says bad DLL calling

Whats wrong?

'In Visual Basic 5.0, change Stkit432.dll in the following
'statement to Vb5stkit.dll.  Stkit432.dll is for Visual Basic 4.0
'For VB6, change it to VB6STKIT.DLL


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

Function QuickLink(strResFolder As String)
Dim lReturn As Long
lReturn = fCreateShellLink("", "Quick Links - " & strResFolder, _
    App.Path & "\" & App.EXEName & ".exe", "")
End Function

Try this:

Function QuickLink(strResFolder As String)
Dim lReturn As Long
lReturn = fCreateShellLink("C:\...\...\...\...\Quick Launch", "Quick Links - " & strResFolder, _
    App.Path & "\" & App.EXEName & ".exe", "")
End Function