Se la cosa per te è soddisfacente si può fare... tuttavia fai attenzione a come...!
Ci sono 2 tranelli in questa cosa...
1) L'evento da usare... quando una FORM è SUBFORM, gli EVENTI non reagiscono proprio come ci si aspetta da una FORM...
quindi devi metterti di pazienza e PROVARE tutti gli eventi, prima di tutto se si generano e poi se la loro eventuale attivazione ti soddisfa.
2) Trovato l'evento se scrivi il codice nella SubForm hai un problema.... in quanto tu non devi modificare le dimensioni della Form ma quelle della SubForm ovvero del Container che dall'interno non sai come trovare.
Mi spiego meglio, nella Form hai un'oggetto Container(di tipo SubForm) che ingloba la Form come SubForm, ma sono 2 Oggetti differenti, il Container sarà raggiungibile come:
Me!nomeContainerSubform
Mentre la Form interna
Me!nomeContainerSubform.Form....
Dall'interno della SubForm se testi il Me.Parent trovi la Main Form e non il Container quindi di fatto non esiste un legame tracciabile tra il Container e la Form inglobata leggibile dalla Form stessa.
Serve un giochetto simile all'interno della SubForm
Function MyContainer() As Access.Control
Dim ctl As Access.Control
Dim frm As Access.Form
Set frm = Me.Parent
For Each ctl In frm.Controls
If TypeOf ctl Is SubForm Then
If ctl.Form Is Me Then
Set MyContainer = ctl
Exit For
End If
End If
Next
End Function
Quindi trovato l'evento, puoi fare così:
Dim mContainer As Access.Control
Set mContainer=MyContainer()
mContainer.With=NuovaLarghezza
Se tutto questo invece lo fai dalla Form è tutto più semplice...