سوال در مورد regedit

[سید حمید حق پرست]

سلام
خسته نباشید دوستان
یک سوال داشتم، من ب کد زیر تو رجستری یک مقدار میخوام ایجاد کنم :
Dim Reg As Object


Private Sub Form_Load()
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_CLASSES_ROOT\hamid\", "HI", "REG_SZ"
End Sub
اما اگر این اجرا کنی اسمی برای استرینگ نمیزاره و فقط type و data بهش میده
برای اینکه اسم هم بهش بده باید چکار کنم؟
ممنون میشم راهنمایی کنید

یا علی (ع)

[setroyd]

Dim Reg As Object


Private Sub Form_Load()
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_CURRENT_USER\Software\salam", "HI", "REG_SZ"
End Sub



شما بعد از key اسم رو بزاری همون میشه اسم string شما

الا من در software یک string به نام salam باز کردم .