set focus van control naar subformulier

[mazda626]

Ik wil in een subformulier door code de controls zichtbaar of onzichtbaar maken. Dit lukt niet als een contol de focus heeft. Hoe kan ik de focus van de control naar het subformulier verplaatsen.

Het subformulier word benadert met de code

Set fsubForm = Forms(strformnaam).Controls.Item(strContainer1).Form.Controls.Item(strContainer2).Form.Controls.Item(strContainer3).Form

waarin de variabelen de namen van de containers van de subformulieren zijn.