=================================================================

Sub Flash (Frm As Form)
' Notice that argument is declared As Form.
' This is required because Screen.ActiveForm
' can be passed to this procedure.
Dim temp As Long, i As Integer

' Flash form by swaping forecolors and backcolors twice.
    For i = 1 To 2
	temp = Frm.BackColor
	Frm.BackColor = Frm!lstForms.ForeColor
	Frm!lstForms.BackColor = Frm!lstForms.ForeColor
	Frm!lstForms.ForeColor = temp
	Frm.Refresh
    Next
End Sub