Ehm... Guarda che

Form1.Refresh

ha solo un effetto grafico, non c'entra proprio niente con il tuo check.


Il codice che stai eseguendo nell'evento Form_Load() lo devi spostare in una nuova routine, es.

codice:
Private Sub ControllaDir()
    ' metti qui tutto il tuo codice dell'evento Form_Load()
End Sub
Poi chiamerai la routine dove e quando ti occorre, cioè:

codice:
Private Sub Form_Load()
    Call ControllaDir()
End Sub

Private Sub Timer1_Timer()
    Call ControllaDir()
End Sub