nauthna > 22-02-13, 02:12 PM
Sub FlipVisibled(frmAny As Form, ctlAny As Control)
Dim ctl As Control
ctlAny.Visible = True
ctlAny.SetFocus
For Each ctl In frmAny.Controls
If ctl.ControlType = acCommandButton Then
If ctl.Name <> ctlAny.Name Then
ctl.Visible = Not ctl.Visible
End If
End If
Next ctl
End Sub