[سعود]

اشترط رقم اليوم
اظن رقم الاحد هو صفر 0
وهذا كود الاخ المشرف تركي

كود :

Dim days() As String = {"الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الجمعة", "السبت"}

        If Now.DayOfWeek = 0 Then
            MsgBox(days(Now.DayOfWeek))
        End If

---

الكود التالي لبدء التشغيل مع النظام مجرب على ويندوز 7

كود :

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(ProductName, Application.ExecutablePath)

وهذا لحذفه من بدء التشغيل

كود :

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue(Application.ProductName)