Imports Microsoft.Win32.Registry
Public class reg inherits system.windows.Forms.form
#Region "Windows Form Designer Generated Code"
Public Sub new () mybase.new ()
'This call is required for the Windows Form Designer. InitializeComponent ()
'Add any initialization after INITIALIZECOMPONENT ()
End Sub
'Form rewriting Dispose to clean up the list of components. Protected overloads overrides sub dispose (byval disposing as boolean) ing disponation kiln (Components Is Nothing) Then components.dispose () end if endiffs) End sub
'Windows Form Designer Supply Private Components as System.comPonentModel.icontainer
'Note: The following procedure is necessary to use the Windows Form Designer to modify this process using the Windows Form Designer. 'Don't modify it using the code editor.
End Sub
#End region
Private Sub Reg_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim str As String = "EasyClick.PurpleStar.Win.exe" Dim reg As Microsoft.Win32.RegistryKey reg.OpenSubKey ( "Software / Microsoft / Windows / CurrentVersion / Run / ", TRUE) IF Reg.getValue (" easyclick.purplestar.win.exe ") is nothing the reg.setValue (" easyclick.purplestar.win.exe "," EasyClick.purpleStar. Win.exe ")
End if End Subend Class
