Sub ShowWinLineMandatorAndWinLineYear(WinLineMandatorNr, WinLineYear) 'Version Date 22.09.2020 'Close all Windows MPushButton 774, 99, 0 IF (WinLineMandatorNr <> "") and (WinLineYear <> "") Then Dim Year Year = (WinLineYear / 12) + 1900 'Close all Windows 'MActivateWindow 85 'MPushButton 85, 99, 0 MActivateWindow 774 MPushButton 774, 99, 0 End If End Sub