เรื่องของเรื่องมีอยู่ว่าผมกำลังทำโปรแกรมชนิดหนึ่งขึ้นมาแล้วให้มันตั้งค่าไปที่ RUNASADMIN อัตโนมัติตามภาพที่ผมตั้งจากวินโดวส์ครับ


แต่พอผมมาเขียนใน vb6 มันกลับมองเป็นอีกแบบตามรูปครับ


ซึ่งโค้ดผมเขียนย่อๆ ดังนี้ครับ
Dim objWsc
Set objWsc = CreateObject("WScript.Shell")
objWsc.RegWrite "HKCU\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\" & (App.Path & "\" & App.EXEName & ".exe"), "RUNASADMIN", "REG_SZ"

ปัญหาก็คือตรง & (App.Path & "\" & App.EXEName & ".exe") มันไม่ยอมใส่ค่าตามภาพแรกอ่ะครับ แต่มันกลับสร้างห้องย่อยเข้าไปอีก ซึ่งไม่สามารถนำมาใช้งานได้
ผมอยากจะให้มันเป็นค่าตามนี้ตามภาพแรกครับ