'-- Listing 16.2 - 16LIST02.TXT - Przykadowy kod zachowywania pliku.
Private Sub cmdButton_Click ()
  dlgCommon.DefaultExt = "ICO"  
  dlgCommon.Filename = "DEFAULT.ICO"
  dlgCommon.Filter = "Ikony(*.ico)|*.ico|Wszystkie pliki (*.*)|*.*"
  dlgCommon.FilterIndex = 1
  dlgCommon.Flags = cdlOFNOverwriteprompt Or cdlOFNPathMustExist
  dlgCommon.Action = 2
  Text1.Text = dlgCommon.Filename
End Sub
