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)