Estoy haciendo unas pruebas con este código, pero al ejecutarlo con puntos de interrupción, me di cuenta que se ejecuta dos veces:
tmBackup = Timer a 60.000 milisegundos.
Dim Thread_Backup As Thread
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
tmBackup.Enabled = True 'ACTIVA TIMER
AddHandler tmBackup.Tick, AddressOf tmBackup_Tick
End Sub
Private Sub tmBackup_Tick(sender As Object, e As EventArgs) Handles tmBackup.Tick
Thread_Backup = New Thread(New ThreadStart(AddressOf Ejecuta_Backup))
Thread_Backup.IsBackground = True
Thread_Backup.Start()
End Sub
Private Sub Ejecuta_Backup() 'SE EJECUTA DOS VECES
If Now.DayOfWeek = 1 Then
If Now.Hour = 7 Then
... código
End If
End If
End Sub