1. <ColSplitter Index="0" Width="8550">
2. <RowSplitter Index="0" HeightP="34125">

Private Sub GetPrefs()
   Dim hF As Long 
   Dim sPrefs As String
   Dim aTmp As Variant
   ' This is a very simplified implementation for saving settings.
   ' You should use the registry to store the splitter preferences
   ' along with your application settings. 
   On Error GoTo eh
    hF = FreeFile
    If hF > 0 Then
        Open App.Path & "\ddlookout.dat" For Input As #hF
        Input #hF, sPrefs
        aTmp = Split(sPrefs, ":")
        asizerRight.SplitterPref = aTmp(1)
        Input #hF, sPrefs
        aTmp = Split(sPrefs, ":")
        ActiveSizer1.SplitterPref = aTmp(1)
        Close #hF
    End If
    
ex:
    Exit Sub
eh:
    Debug.Print "Error: "; Err.Number, Err.Description
    Resume ex
End Sub
 
Private Sub WritePrefs()
Dim hF As Long
    On Error GoTo eh
    hF = FreeFile
    If hF > 0 Then
        Open App.Path & "\ddLookout.dat" For Output As #hF
        Print #hF, "1:" & asizerRight.SplitterPref
        Print #hF, "2:" & ActiveSizer1.SplitterPref
        Close #hF
    End If
 
ex:
    Exit Sub
eh:
    Debug.Print "Error WritePrefs: "; Err.Number, Err.Description
    Resume ex
End Sub

Keywords: