[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته


قد يفيدك هذا المثال

كود :

Public Class Form1

   ' Timer أدرج


   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Interval = 30000
       Timer1.Start()

   End Sub


   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Dim t As String = Now.ToString("HH:mm") ' تنسيق أربعة وعشرون ساعة
       ' تم تحديد الساعة العاشرة صباحاً بنظام 24 ساعة
       If t = "10:00" Then
           ' قم بعمل نسخة احتياطية لقاعدة البيانات
           MakeDatabaseBackup()
       End If
   End Sub


   Private Sub MakeDatabaseBackup()
       ' يعني الكتابة فوق النسخة الإحتياطية السابقة إن وجدت True المعامل الثالث
       IO.File.Copy("قاعدة البيانات الأساسية", "قاعدة البيانات الإحتياطية", True)
   End Sub

End Class

السلام عليكم ورحمة الله وبركاته