Imports Microsoft.Win32.Registry
Imports Microsoft.Win32

Public Class startup_tools
    Dim Registry As RegistryKey
    Sub add(ByVal appname As String)
        Registry = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        Registry.SetValue(appname, Application.ExecutablePath)
    End Sub
    Sub remove(ByVal appname As String)
        Registry = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        Registry.DeleteValue(appname)
    End Sub
End Class