150 %
125 %
100 %
87,5 %
 75 %
Vollbild

' Declare-Anweisungen für die Resizeroutine
Declare Function GetPrivateProfileString Lib "kernel32" Alias _
  "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
  lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As _
  String, ByVal nSize As Long, ByVal lpFilename As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
lpKeyName As Any, ByVal lpString As Any, ByVal lpFilename As String) As Long

MdiForm.CboZoom.ListIndex = 2  ‘ Eintrag = 100%
  ' Auslesen der WindowsPosition
  s = IniReadPvtString(CStr(App.Title), "MdiForm", "", "d:\IBSPOS.ini")
  If Val(ItemExtract(6, s, ",")) = 2 Then
    MdiForm.WindowState = vbMaximized
    MdiForm.CboZoom.ListIndex = Val(ItemExtract(5, s, ","))
    Show
  Else
    GrößeLesen MdiForm, "MdiForm"
  End If