DOCUMENT:Q297677  03-AUG-2001  [vbwin]
TITLE   :PRB: VB 5.0 Installation on Windows 2000 Ignores Start Menu
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER::5.0,97
OPER/SYS:
KEYWORDS:kbDSupport

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual Basic Enterprise Edition for Windows, version 5.0, used with:
    - the operating system: Microsoft Windows 2000 
 - Microsoft Visual Studio 97, used with:
    - the operating system: Microsoft Windows 2000 
-------------------------------------------------------------------------------

SYMPTOMS
========

When you install Visual Basic 5.0 on the Windows 2000 operating system (either
the stand-alone version or as part of the Visual Studio suite of programs), no
icons show up in the Start menu system.

CAUSE
=====

Visual Basic 5.0 is not aware of the Start menu system located in the \Documents
and settings path in the Windows 2000 operating system. When Visual Basic is
installed, the installation completes successfully, with the exception of
creating the icons in the Start menu under Programs.

RESOLUTION
==========

There are two ways to resolve this problem:

 - Method 1 (manual method): Add a subfolder under <system drive
   letter>:\Documents and Settings\All Users\Start Menu\Programs named
   "Microsoft Visual Basic 5.0". After this folder has been created, shortcuts
   can be manually added.

 - Method 2 (code method): Use the following Microsoft Visual Basic Script to
   add the icons and program subfolders to the menus:

   Start Microsoft Notepad, and then copy and paste the code into your Notepad
   document. Save the file with a .vbs extension. Double-click the file under My
   Computer or in Windows Explorer to run the code.

   NOTES: If the Windows 2000 operating system is installed on a drive other than
   C:, change all references in the code to the appropriate drive letter.

   This script will create all icons for the full Enterprise installation. If you
   have not installed all the items the extra icons can be deleted.

   Dim fso, f
   'creating folder on \start programs'
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set f = fso.CreateFolder("c:\Documents and Settings\All Users\Start Menu\Programs\Microsoft Visual Basic 5.0")
      CreateFolderDemo = f.Path

   set wshshell=createobject("wscript.shell")

   'creating first shortcut'
            set oUrlLink = WshShell.CreateShortcut(f.Path & "\API Text Viewer.lnk")
            oUrlLink.TargetPath = "c:\devstudio\vb\winapi\apiload.exe"
            oUrlLink.Save
         

   'creating second shortcut' 
            set oUrlLink = WshShell.CreateShortcut(f.Path & "\Application Performance Explorer.lnk")
            oUrlLink.TargetPath = "c:\devstudio\vb\clisvr\aemanagr.exe"
            oUrlLink.Save

   'creating third shortcut'
            set oUrlLink = WshShell.CreateShortcut(f.Path & "\Application Setup Wizard.lnk")
            oUrlLink.TargetPath = "c:\devstudio\vb\setupkit\kitfil32\setupwiz.exe"
            oUrlLink.Save

   'creating fourth shortcut'
            set oUrlLink = WshShell.CreateShortcut(f.Path & "\Automation Manager.lnk")
            oUrlLink.TargetPath = "c:\winnt\system32\autmgr32.exe"
            oUrlLink.Save

   'creating fifth shortcut'
            set oUrlLink = WshShell.CreateShortcut(f.Path & "\Books Online.lnk")
            oUrlLink.TargetPath = "c:\devstudio\VB\vbonline\VBONLINE.EXE"
            oUrlLink.Save

   'creating sixth shortcut'
            set oUrlLink = WshShell.CreateShortcut(f.Path & "\Crystal Reports.lnk")
            oUrlLink.TargetPath = "c:\devstudio\VB\report\CRW32.EXE"
            oUrlLink.Save

   'creating seventh shortcut'
            set oUrlLink = WshShell.CreateShortcut(f.Path & "\Readme.lnk")
            oUrlLink.TargetPath = "c:\devstudio\VB\README.HLP"
            oUrlLink.Save

   'creating eighth shortcut'
            set oUrlLink = WshShell.CreateShortcut(f.Path & "\RemAuto Connection Manager.lnk")
            oUrlLink.TargetPath = "c:\devstudio\VB\Clisvr\RACMGR32.EXE"
            oUrlLink.Save

   'creating ninth shortcut' 
            set oUrlLink = WshShell.CreateShortcut(f.Path & "\Visual Basic 5.0.lnk")
            oUrlLink.TargetPath = "c:\devstudio\VB\VB5.EXE"
            oUrlLink.Save

   MsgBox "Done. Thank you for choosing Microsoft Technical Support"

MORE INFORMATION
================

The information provided in this article is based on a full installation to the
default installation location when installing Visual Basic 5.0.

Additional query words: VB5 Win2000 visual studio basic 5.0 Win2K

======================================================================
Keywords          : kbDSupport 
Technology        : kbVBSearch kbAudDeveloper kbZNotKeyword6 kbZNotKeyword2
Version           : :5.0,97
Issue type        : kbprb

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2001.