Private Sub Timer1_Timer()
Form3.Text1.Text = Hour(Time) * 60 + Minute(Time)
Form3.Text6.Text = Hour(Time) * 60 + Minute(Time) - StartTime
End Sub

'TIMER TO CALL STATUSCHECK METHOD AT 1 SECOND INTERVALS
Private Sub Timer2_Timer()
EntryForm.StatusCheck
End Sub