Private Sub Form_Load()
 
'Bildschirmgröße festlegen
 
With sevHauptmenu
' Schrift für die Symbolbeschriftung festlegen
  .Font.Name = "Verdana"
  .Font.Size = 10
 
  ' Falls bis dato noch keine Schrift zugewiesen wurde
  If .MenuFont Is Nothing Then
    Set .MenuFont = New StdFont
  End If
 
  ' Schrift für die PopUp-Menüeinträge festlegen
  .MenuFont.Name = "Verdana"
  .MenuFont.Size = 9
End With

  With Grid1
    ' autom. Neuzeichnen des DataGrids unterbinden
    .LockUpdate True
    .FilterMoveTAB = True
 
    .ScrollBarSize = 18
    .ColumnHeaderHeight = 22
    .RowHeight = 18
    .FooterHeight = 18
 
    ' Erweiterte Eigenschaften
    .AllowColumnClick = True
    .AllowColumnSizing = False
    .AllowDelete = False
    .AllowEdit = False
    .AllowMultiSelect = False
    .AllowColumnReorder = False
    .AutoSort = True
    .AutoUpdate = False
    .CheckBoxStyle = 2 ' XP-Style
    .ShowSortSymbols = True
    .AutoRefreshVScroll = True
 
    .CaptionBackColorFrom = 15463669 
    .CaptionBackColorTo = 15463669   
    .CaptionForeColor = 0 
    .Caption = "Kundenaufträge < 90 Tage"
    .CaptionFont.Name = "Tahoma"
    .CaptionFont.Bold = False
    .CaptionFont.Size = 10
    .CaptionHeight = 22
    .CaptionVisible = True
 
    .ColumnHeaderFont.Name = "Tahoma"
    .Font.Name = "Tahoma"
    .FooterFont.Name = "Tahoma"
    .FilterFont.Name = "Tahoma"
    .FilterVisible = True