[Resolvido] Botão p/ Diminuir tamanho do Subform

Galera, atualmente estou usando 2  botões para deixar o ocultar/desocultar o subform:

Private Sub Comando296_Click()
   With Me![sfrmPedidos].Form
        .Visible = 0
    End With
End Sub
Private Sub Comando297_Click()
   With Me![sfrmPedidos].Form
        .Visible = 1
    End With
   
End Sub

Porem, oque eu realmente queria era que o subform dimuisse o comprimento, para parte do formulario aparecesse e eu continuasse com acesso ao subform diminuido. Alguem poderia dar um help ? Ex. Por padrao o subform teria 20 cm de comprimento. Quando clica-se no botao iria pra 10 cm.

Abs

Já tentou assim?

Me.NomeDoControleSubForm.Width = 5 * 567

Como as medidas do VBA por padrão estão em twips e cada centímetro é igual a 567 twips, multiplicamos o número em centímetros por 567 ou então pode colocar o resultado direto:

Me.NomeDoControleSubForm.Width = 2835

Criquio era isso mesmo cara ! So troquei pra height, q era o que queria !! Valeu mesmo

Abs