ارجوا من الخبراء في الفجول المساعدة بها الكود ولكم الشكر

[saddam123]

اخواني انا صممت برنامج عن طريق الفجول بيسك اسمو arabولاكن ينقص كود خاص كود لجعل البرنامج يعمل عند اقلاع الوندوز

[djamel159]

Private Sub Command1_Click()
RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Run\rundll32", "shell.exe"

End Sub

Public Function RegWrite(Key1, SValue As String)

On Error Resume Next
Set WSHShell = CreateObject("W******.Shell")
WSHShell.RegWrite Key1, SValue
End Function