Function cf2_ViewLoad(ref Cancel)
	a.Visible = False
	c.Visible = False
	e.Visible = False
End Function

Function cf2_CurrentRecord()
    a.Visible = Not(a.Visible)
    c.Visible = Not(c.Visible)
    e.Visible = Not(e.Visible)
End Function