Hola:
mira, lo que puedes hacer es detectar que resolucion tiene la pc y si no es como tu la diseñaste la cambias y al salir retornas a la resolucion por defecto.
Para saber que resolucion es:
Private Sub Command1_Click()
Dim XTwips As Long
Dim YTwips As Long
Dim XPixels As Long
Dim YPixels As Long
XTwips = Screen.TwipsPerPixelX
YTwips = Screen.TwipsPerPixelY
YPixels = Screen.Height / YTwips
XPixels = Screen.Width / XTwips
Text1.Text = Str$(XPixels) + " x " + Str$(YPixels)
End Sub
Mas detalle hay en este pagina..
http://guille.costasol.net/api/resolucionpantalla.htmsaludos;