Private Sub Form_Resize() If Me.Width < Alto_Minimo Then Me.Width = Alto_Minimo If Me.Height < Ancho_Minimo Then Me.Height = Ancho_Minimo End Sub