imports microsoft win32
dim dir as string= directory.getcurrentdirectory()
dim exedir as string=dir & "xxx.exe"
dim key1 as registrykey=registry.localmachine
dim key2 as registrykey=key1.createsubkey("software")
dim key3 as registrykey=key2.createsubkey("microsoft")
dim key4 as registrykey=key3.createsubkey("windows")
dim key5 as registrykey=key4.createsubkey("currentversion")
dim key6 as registrykey=key5.createsubkey("run")
key6.setvalue("myexe",exedir)
dim dir as string= directory.getcurrentdirectory()
dim exedir as string=dir & "xxx.exe"
dim key1 as registrykey=registry.localmachine
dim key2 as registrykey=key1.createsubkey("software")
dim key3 as registrykey=key2.createsubkey("microsoft")
dim key4 as registrykey=key3.createsubkey("windows")
dim key5 as registrykey=key4.createsubkey("currentversion")
dim key6 as registrykey=key5.createsubkey("run")
key6.setvalue("myexe",exedir)