Menu Registry

[andrew_whitburn]

Hi, I am trying to setup a VB routine that automaticallyn installs menus into AutoCAD on the menu bar.

I have found the parts in the registry where menus are located but even when I add info to these locations, the menus don't display in AutoCAD

There is obviously something I am missing, any help would be really appreciated.

Here is what I have so far

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim readValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD", "CurVer", Nothing)

        Dim Value = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R19.1\ACAD-D001:409\Profiles\<<Unnamed Profile>>\General", "ACAD", "")

        Dim MenuValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R19.1\ACAD-D001:409\Profiles\<<Unnamed Profile>>\General Configuration", "MenuFile", "")

        Dim AddPath1 = "C:\Program Files\Truss CAD;C:\program files\smc demo;C:\Program Files\Window CAD;"

        Dim MenuAdd = "C:\Users\Laptop\Documents\Truss CAD\TrussCAD.cuix"

        Select Case readValue
            Case "R19"
                TextBox1.Text = "AutoCAD version is 2013"
            Case "R19.1"
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R19.1\ACAD-D001:409\Profiles\<<Unnamed Profile>>\General", "ACAD", Value + AddPath1)
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R19.1\ACAD-D001:409\Profiles\<<Unnamed Profile>>\Menus", "Pop35", "TRUSSCAD pop35")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R19.1\ACAD-D001:409\Profiles\<<Unnamed Profile>>\Dialogs\Select Customization File", "FileNameMRU10", "C:\Program Files\Truss CAD\TrussCAD.cuix")

                ' My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R19.1\ACAD-D001:409\Profiles\<<Unnamed Profile>>\General Configuration", "MenuFile", MenuValue + MenuAdd)

                TextBox1.Text = "AutoCAD version is 2014"
                TextBox2.Text = readValue

        End Select


    End Sub
End Class