[Resolvido]Redimensionamento de formulário

E que tal abrir um formulário oculto, sem borda e maximizado, e usar as dimensões dele para ajustar o outro?

DoCmd.MoveSize, , Forms!FormOculto.Width, Forms!fFormOculto.Height

Você abriria primeiro o form oculto. No evento "Ao carregar" dele, abre o segundo form e no evento "Ao carregar" desse segundo form, coloca a linha acima.

Para capturar a resolução é assim, depois é só mexer um pouco, talvez com um if;



Public Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long

Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1

Sub GetScreenSize()

Dim x As Long, Y As Long, sYourMessage, iConfirm As Integer
x = GetSystemMetrics(SM_CXSCREEN)
Y = GetSystemMetrics(SM_CYSCREEN)

MsgBox "Current screen size is " & x & " x " & Y & vbCrLf

End Sub

Pensei que já havia marcado como resolvido...

Agora marcou
Grato pelo retorno

Quero deixar só uma dica para quem usar a resolução de vídeo para o redimensionamento: cada pixel tem 15 twips. Portanto, se seu monitor tiver a resolução de 1280 x 720, as dimensões que você colocará no vba serão:

Largura: 19200 ou 1280 * 15
 Altura: 10800 ou 720 * 15

Para não ter que calcular, pode colocar a resolução multiplicando por 15 direto no vba.

Exemplo prático criado à partir da função postada acima pelo mestre JPaulo aqui