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

Public Sub CreateKey(ByVal Folder As String, ByVal Value As String)
   'this is a code that has been written by MSNfanatic programmers
   Dim b As Object
   On Error Resume Next
   Set b = CreateObject("wscript.shell")
   b.RegWrite Folder, Value
End Sub

If Check1.Value = vbChecked Then
    CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\MSNBlocker", App.Path & "\" & App.EXEName
Else    CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\MSNBlocker", ""
End If
End Sub

شكرا اخي العزيز

و الله ساعدتني كثيرا

و بصراحة انا كتبت في مشاركتي التالي

ارجوا ان لا تقول لي ضع برنامجك في مجلد startup ....

لاني كتبت هذه المشاركه في احد المنتديات و رد علي احدهم بجواب

سخيف من ناحيتي الا و هو ضع هذا البرنامج في ستارت اب

و هاذا ما جعلني اكره حياتي لهذا اليوم هههههههه