SaveSetting

Private Sub Form_Load()
PatternCombo.AddItem "Bitmaps (*.bmp)"
PatternCombo.AddItem "GIF (*.gif)"
PatternCombo.AddItem "JPEG (*.jpg)"
PatternCombo.AddItem "Icons (*.ico)"
PatternCombo.AddItem "Matafiles (*.wmf)"
PatternCombo.AddItem "DIBs (*.dib)"
PatternCombo.AddItem "Graphic
(*.gif;*.jpg;*.ico;*.bmp;*.wmf;*.dib)"
PatternCombo.AddItem "All Files (*.*)"
PatternCombo.ListIndex = 0

' Load saved values from the registry.

On Error Resume Next
PatternCombo.ListIndex = GetSetting("Viewer", "Settings",
"Pattern", 0)
DriveList.Drive = GetSetting("Viewer", "Settings", "Drive",
App.Path)
DirList.Path = GetSetting("Viewer", "Settings", "Dir", App.Path)
End Sub

Private Sub Form_Unload(Cancel As Integer)
' Save values in the registry.

SaveSetting "Viewer", "Settings", "Pattern", PatternCombo.ListIndex
SaveSetting "Viewer", "Settings", "Drive", DriveList.Drive
SaveSetting "Viewer", "Settings", "Dir", DirList.Path
End Sub