Dim oReg As RegistryKey = Registry.CurrentUser
   Dim oKey as RegistryKey = oReg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
   oKey.SetValue("MyVBApp", cPGM)