Asi es.. puedes crear una sola y le pasas un valor de tipo objeto para modificar sus propiedades.. ejemplo:
Sub Cambiar(ByVal obj as Object, ByVal x as Boolean)
obj.Visible = x
...
...
End Sub
Y para llamarla
Cambiar (tabla1, True) 'o al valor que desees para aparecerlo o desaparecerla..
Saludos
