How to add a shotcut of my Application to Desktop

'Get the company and description from the deployment (they correspond to the folder the shorcut
                'is located in within the start menu and the name of the shortcut)
                Dim ad As System.Deployment.Application.ApplicationDeployment
                ad = System.Deployment.Application.ApplicationDeployment.CurrentDeployment

                Dim code As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
                Dim company As String = String.Empty
                Dim description As String = String.Empty

                'Get the company
                'NOTE: For this to work, the Assembly Company Attribute must equal the Publisher Name in Publish Options
                If (Attribute.IsDefined(code, GetType(System.Reflection.AssemblyCompanyAttribute))) Then
                    Dim ascompany As System.Reflection.AssemblyCompanyAttribute
                    ascompany = Attribute.GetCustomAttribute(code, GetType(System.Reflection.AssemblyCompanyAttribute))
                    company = ascompany.Company
                End If

                'Get the description
                'NOTE: For this to work, the Assembly Title Attribute must equal the Product Name in Publish Options
                If (Attribute.IsDefined(code, GetType(System.Reflection.AssemblyTitleAttribute))) Then
                    Dim asdescription As System.Reflection.AssemblyTitleAttribute
                    asdescription = Attribute.GetCustomAttribute(code, GetType(System.Reflection.AssemblyTitleAttribute))
                    description = asdescription.Title
                End If

                'If the company is blank, then set it to the description
                If company = String.Empty Then company = description
                Dim desktopPath As String = String.Empty, shortcutName As String = String.Empty
                If (company <> String.Empty And description <> String.Empty) Then
                    'Determine what name the desktop shortcut will have
                    desktopPath = String.Concat(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "\", description, ".appref-ms")

                    'Determine the location of the current start menu shortcut
                    shortcutName = String.Concat(Environment.GetFolderPath(Environment.SpecialFolder.Programs), "\", company, "\", description, ".appref-ms")

                    'Copy the start menu shortcut to the desktop
                    If System.IO.File.Exists(shortcutName) Then
                        Try
                            System.IO.File.Copy(shortcutName, desktopPath, True)
                        Catch ex As Exception
                            'Don't report any errors.  If it doesn't work too bad
                        End Try
                    End If
                End If 'Company and description are filled