Совместное использование функции - VB

Формулировка задачи:

Помогите укоротить программный код

Private Sub Command01_Click()
plusVid01
End Sub
 
Private Sub Command02_Click()
plusVid02
End Sub
 
...
Public Function plusVid01()
VMinus01.Visible = True
SMinus01.Visible = True
SVvod01.Visible = True
SPlus01.Visible = True
VMed01.Visible = True
ZMinus01.Visible = True
VZas01.Visible = True
ZPlus01.Visible = True
End Function
 
Public Function plusVid02()
VMinus02.Visible = True
SMinus02.Visible = True
SVvod02.Visible = True
SPlus02.Visible = True
VMed02.Visible = True
ZMinus02.Visible = True
VZas02.Visible = True
ZPlus02.Visible = True
End Function
...

Поскольку элементов достаточно много, программный код может быть многокилометровым. Можно ли замутить нечто подобное?

Private Sub CommandXXX_Click()
plusVidXXX
End Sub
 
Public Function plusVid02()
VMinusXXX.Visible = True
SMinusXXX.Visible = True
SVvodXXX.Visible = True
SPlusXXX.Visible = True
VMedXXX.Visible = True
ZMinusXXX.Visible = True
VZasXXX.Visible = True
ZPlusXXX.Visible = True
End Function

Решение задачи: «Совместное использование функции»

textual
                            Листинг программы 
                        

                            Dim x As Object
For Each x In Me
If x.Tag = 1 Then x.Visible = True
If x.Tag = 2 Then x.Visible = False
Next
                        