'-> Auflösung "3840x2160" und "150%" DPI
If ScreenResolution() = "3840x2160" And GetDeviceCaps(hDC, LOGPIXELSX) = 144 _
  Then
Me.Section(acDetail).Height = 500   '-> Höhe Section(acDetail)
Me.InsideHeight = Me.Section(acDetail).Height
'-> sevCoolBar anpassen
With Me.sevCoolBar
    .Height = 460
    .ButtonWidth = 43
    .ButtonHeight = 43
    .PreferedIconSize = 3
End With
'-> Access Hauptbildschirm anpassen
AppAnpassen 2708, 1373
Exit Sub
End If