How do I affect objects with a certain TAG?

[Randomblink]

Here is my code...
I want the fields to NOT JUST disappear, but I want they space they take up to go away as well, as if they had shrunk...How do I do this...

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Dim Sweep As String, Keep As String

Select Case PSRTYPE
Case Is = "City"
broom "Contract", "City"
Case Is = "Contract"
broom "City", "Contract"
End Select

End Sub

Public Sub broom(Sweep, Keep)

Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.Tag
Case Sweep
ctl.Visible = False
Case Keep
ctl.Visible = True
End Select
Next ctl
Set ctl = Nothing

End Sub

I have changed this post several times, since I discovered how to code the Sub like I wanted...FYI

[This message has been edited by Randomblink (edited 11-19-2001).]

 

[Randomblink]

I figured it out...
No need to answer now...
Thanks anyway...