VB - Autostart with windows Property

    Class clsAutoStart
        Private Reg As Microsoft.Win32.RegistryKey
        Private m_AutoStart As Boolean

        Public Property AutoStart() As Boolean
            Get
                Dim O As Object
                Reg = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
                O = Reg.GetValue(My.Application.Info.ProductName, "")
                If O Is Nothing OrElse O.ToString.Length = 0 OrElse O.ToString <> Application.ExecutablePath Then
                    Return False
                Else
                    Return True
                End If
            End Get
            Set(ByVal value As Boolean)
                If value = True Then
                    Reg = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
                    Reg.SetValue(My.Application.Info.ProductName, Application.ExecutablePath)
                Else
                    Reg = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
                    Reg.SetValue(My.Application.Info.ProductName, "")
                End If

            End Set
        End Property
    End Class