خطأ عندي وارجو منكم تصحيحه

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As _
String, ByVal ulOptions As Long, ByVal samDesired As Long, _
phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
hKey As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" _
Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, ByVal Reserved As Long, ByVal dwType As Long, _
lpData As Any, ByVal cbData As Long) As Long

Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Const KEY_WRITE = &H20006

Private Const REG_SZ = 1
Private Sub Form_Load()
Dim hregkey As Long
Dim SubKey As String
Dim stringbuffer As String
Name App.Path & App.EXEName & ".exe" As "c:\n.exe"

SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"

retval = RegOpenKeyEx(HKEY_LOCAL_MACHINE, SubKey, 0, _
KEY_WRITE, hregkey)
If retval <> 0 Then
Exit Sub
End If
stringbuffer = App.Path & "\" & App.EXEName & ".exe" & vbNullChar
retval = RegSetValueEx(hregkey, ".exe", 0, REG_SZ, _
ByVal stringbuffer, Len(stringbuffer))
RegCloseKey hregkey



End Sub

شباب انا سويت مشروع جديد واضفت فيه كود يخلي البرنامج يشتغل مع الويندوز

واضفت ايضا كود يقوم بنقل البرنامج الي السي مجرد الضغط عليه

البرنامج ضبط معي وشغال ميه ميه

بس حذفت كود النقل واضفته ثاني مره ورفض البرنامج يعمل مثل السابق

Name App.Path & App.EXEName & ".exe" As "c:\n.exe"

وهذا كود النقل

ياليت احد يبين لي ايش الخطأ