Private Sub sysDetectOS_DisplayChanged() If Screen.ActiveForm.Width > _ sysDetectOS.WorkAreaWidth Then Screen.ActiveForm.Left = _ sysDetectOS.WorkAreaLeft Screen.ActiveForm.Width = _ sysDetectOS.WorkAreaWidth End If If Screen.ActiveForm.Height > _ sysDetectOS.WorkAreaHeight Then Screen.ActiveForm.Top = _ sysDetectOS.WorkAreaTop Screen.ActiveForm.Height = _ sysDetectOS.WorkAreaHeight End If End Sub
jpleroisse