Private Sub Form_Resize() With Me If .Height < 9810 Then .Height = 9810 If .Width < 13515 Then .Width = 13515 ' et là oui : on reprend maintenant les unités logiques de ton form ! Frame1.Top = .ScaleTop Frame1.Left = .ScaleLeft + 30 Frame1.Width = .ScaleWidth - 150 End With End Sub
If Me.ScaleHeight < 9810 then Me.ScaleHeight = 9810 if Me.ScaleWidth < 13515 Then Me.ScaleWidth = 13515
Private Sub Form_Resize() With Me If .Height < 9810 Then .Height = 9810 If .Width < 13515 Then .Width = 13515 Frame1.Top = 0 Frame1.Left = 30 Frame1.Width = .Width - 150 End With End Sub
Frame1.Width = .Width - 150