Visual Basic 6 - salvataggio caratteri

salve a tutti sto crecando di realizzare un blocco note in visual basic 6.0 ma nel menu formato carattere ho messo il seguente codice:
Commondialog1.Flags = cdlCFScreenFonts
Commondialog11.ShowFont
Text1.FontBold = Commondialog11.FontBold
Text1.FontItalic = Commondialog11.FontItalic
Text1.FontName = Commondialog11.FontName
Text1.FontSize = Commondialog11.FontSize
Text1.FontStrikethru=Commondialog11.FontStrikethru
il comando commondialog.showfont fa comparire la finestra dei caratteri all'internosi trova il pulsante annulla talepulsante se viene premuto compare un errore qualcuo di voi gentilmente può spegarmi il perchè?
cosa ho sbagliato?
vorrei capire anche come faccio a salvare l'impostazione dei caratteri che l'utente ha impostato ogni volta che mi si apre il blocco note?
mi è gradita una risposta
vi ringrazio anticipatamente

Ecco il codice corretto...

On Error Resume Next
CommonDialog11.Flags = cdlCFScreenFonts
CommonDialog11.ShowFont
Text1.FontBold = CommonDialog11.FontBold
Text1.FontItalic = CommonDialog11.FontItalic
Text1.FontName = CommonDialog11.FontName
Text1.FontSize = CommonDialog11.FontSize
Text1.FontStrikethru = CommonDialog11.FontStrikethru

non e` una gran risposta...

per il 2ndo prob.
o scrivi un file con dentro le impostaziono che vuoi salvare e lo riapri all'avvio oppure usi piu facilmente il savesettings e loadsettings(?) che ti memorizza e ti legge tutto nel registro di sistema.

Per il 1° problema devo spiegargli i problemi ke davano l'errore??

Per il 2° problema ti consiglio di salvare le impostazioni in un file .ini...

direi di si.

e cmq creare un file .ini? perche` non ci mettiamo anche una musichetta di sottofondo!
Il savesetting per memorizzare UNA variabile direi che e` leggermente piu conveniente.

vi ringrazio ancora x la vostra risposta
il primo problema è stato risolto con la funzione on error resume next in un secondo momento ho pensato di scrivere il seguente codice per salvare l'impostazione dei caratteri onde evitare che l'utente deve reimpostarei i caratteri .:

dim x
private sub form_load
x = text1.FontBold and text1.FontItalic & Text1.FontName end Text1.FontSize
end sub

private sub salva_clik
If Commondialog1.FileName <> "" Then
Open Commondialog1.FileName For Append As #1
Print #1, Text1.Text & x
Close
End If

private sub apri_clik
Commondialog1.ShowOpen

If Commondialog1.FileName <> "" Then
Open Commondialog1.FileName For Input As #1

o = Input(LOF(1), 1) & x
Close #1

text1=o

tale codice non è funzionante per il salvataggio dei caratteri perchè?????
vorrei saperlo
c'è qualche funzione che si deve sapere?
qualcuno puo spiegarmi la soluzione x favore?
vi ringrazio tutti

uffi qualcuno puo rispondermi???

Occhio ragazzi a non litigare!
Grazie!

ciao, ti proporrei una soluzione molto semplice,

intanto il font lo puoi salvare al massimo come default all'apertura del programma e non in un file di testo, per salvare le impostazioni crei un file di testo con i valori di (fontbold,fontitalic) separati da una virgola (es: true,false,false ecc..) poi quando apri il programma carichi come input il file con le impostazioni (true,false,false) e lo splitti

On Error Resume Next
Dim setting1 As Variant
setting1 = Split(inputopzioni, ",")
text1.fontbold = setting1(0)

e cosi via per le altre, in questo modo ogni indice avrà un valore (0=true 1=false 2=false)
(riferito all'es di prima