Imports Microsoft.Win32.Registry Imports Microsoft.Win32 Public Class startup_tools_test Dim Registry As RegistryKey Sub add(ByVal appname As String) Dim addstr As New startup_tools addstr.add(appname) End Sub Sub remove(ByVal appname As String) Dim addstr As New startup_tools addstr.remove(appnam) End Sub End Class