'in vb4 & w95

Declare Function OSfCreateShellGroup Lib "STKIT432.DLL" Alias "fCreateShellFolder" _ 
(ByVal lpstrDirName As String) As Long

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


'-----------------------------------------------------------
' SUB: CreateShellGroup
'
' Creates a new program group off of Start>Programs in the
' Windows 95 shell if the specified 
folder
 doesn't already exist.
'
' IN: [strFolderName] - text 
name
 of the folder.
'                      This 
parameter
 may not contain
'                      backslashes.
'                      ex: "My Application" - this creates
'                        the 
folder
 Start>Programs>My Application
'-----------------------------------------------------------
'
Public 
sub
 CreateShellGroup(ByVal strFolderName As String)

    If strFolderName = "" Then
        
exit
 Sub
    
end
 If

    
dim
 fSuccess As Boolean
    fSuccess = OSfCreateShellGroup(strFolderName)

End Sub


'use as

    
dim
 res&
    
dim
 vLocation$

    vLocation$ = "testing"
    Call CreateShellGroup(vLocation$)
    vLocation$ = "..\..\Start Menu\Programs\" & vLocation$
    res& = fCreateShellLink(vLocation, [title], [path&executable], "")

'where
'	title = 
name
 to be mentioned
'	path&executable = full path and executable 
name
 of application