المشكله ان الوظائف التي يوفرها الفيجوال للعمل مع الريجستري لا تتمتع بالمرونه الكافيه التي تسمح لك بالكتابه و القراءة والمسح من اي مكان تريد ولكي تتمكن من ذلك يجب ان تكون لك معرفه بالـ API ...
المثال المرفق فيه Class يسمح لك بالعمل بمرونه اكبر مع الريجستري..
وهذه امثله(موجوده في الملف المرفق)..
Dim c As New CRegistry 'to read Debug.Print c.GetAppRegValue(HKEY_LOCAL_MACHINE, "SoftwaremicrosoftwindowscurrentVersionrun", REG_SZ, "ScanRegistry") 'to create c.CreateRegEntry HKEY_LOCAL_MACHINE, "SoftwaremicrosoftwindowscurrentVersionrun", REG_SZ, "sample", "sample" 'to delete c.DeleteRegValue HKEY_LOCAL_MACHINE, "SoftwaremicrosoftwindowscurrentVersionrun", "sample"