La forma es utilizar un control de usuario y una variable privada de
módulo:

Private bMEsTimer as Boolean

Sub Form_Resize()
   If Not bMEsTimer Then
      tmrResize.Enabled= False
      tmrResize.Enabled = True
   End If
End Sub

Sub tmrResize_Timer()
   'Pones un Interval corto: 100 ms o algo así

   tmrResize.Enabled = False
   bMEsTimer = True

   Width = Ancho
   Height = Alto

   DoEvents

   bMEsTimer = True
End Sub

Con esto funcionará mejor, creo (si no hay errores).

Saludos

Luis Sanz

HOSPITAL REINA SOFIA DE TUDELA
31500 TUDELA
NAVARRA
Teléfono: 948-827500
Fax: 948- 825906
E-Mail: hrst@ctv.es

----------
> De: Daniel José Scokin <nexum@lanet.losandes.com.ar>
> A: VB <vb-esp@ccc.uba.ar>
> Asunto: (VB-ESP) Limitar redimensionado de pantalla
> Fecha: miércoles 29 de julio de 1998 10:37
>
> A alguien se le ocurre como limitar las dimensiones de un form cuando un
> usuario modifica el mismo.
>
> Ya he probado con el evento resize de la siguiente forma:
>
> private sub form1_resize()
>
> if form1.width < [ancho_minimo]
> form1.width = [ancho_minimo]
> end if
>
> if form1.height< [alto_minimo]
> form1.height = [alto_minimo]
> end if
>
> end sub
>
> Funciona muy bien pero se ve feo!. Hace que mientras el usuario modifica
el
> tamaño del form y este es menor a los tamaños minimos, el form parpadea
lo
> que no da un aspecto muy profesional.
>
> Hay alguna otra forma?
>
> Muchos Saludos y Gracias
>
> Daniel Jose Scokin
> mailto:nexum@usa.net
> Mendoza - Argentina
>
>
>