Function QW_BeforeDisplay(QWFunction) 
    Select Case QWFunction 
		Case "A" 'Add Record 
			Dim QWtimer 
			Set QWtimer = CreateObject("QWTool60.Timer") 
				QWtimer.HeaderTitle = "Elapsed Time" 
				QWtimer.FooterTitle = "Downtime Cost" 
				QWtimer.FooterBaseValue = 80.00 
				QWtimer.FooterMultiplier = 0.42 
				QWtimer.FooterFormat = "$##,##0.00" 
				QWtimer.Display 

			If QWtimer.Cancel = False Then 
				QWfile.Value(13) = QWtimer.ElapsedSeconds / 60 
			Else 
				QW_BeforeDisplay = "CANCEL" 
			End If 
    End Select 
End Function