Visual Basic 6 - Salvare impostazioni Forms in un file .ini

Dovo salvare le impostazioni delle Forms in un file .ini...

ecco il codice ke uso per creare il file...ma per scrivere le impostazioni??

Open "C:\config.ini" For Append As #1
Write #1, 'Impostazioni Form??
Close #1
End sub

ps.Con impostazioni intendo le dimensioni...

Esempio:

Open app.path & "\Impostaziiooni.ini" for output as #1
print #1, "Altezza form: " & Form1.Height & vbcrlf &  "Larghezza form: " & Form1.Width
close #1

si intendo questo...
ma, siccome lo devo fare x quattro form nn esiste un opzione ke mi permette di farlo senza ke io scriva tutto quanto??

ps.Cmq x questo tipo di operazione conviene usare la funzione write nn quella print...

Ecco, così dovrebbe andare ma cerca di capire come ho applicato questo ciclo...anke tu lo avresti potuto fare benissimo, perchè è molto semplice.

Dim X As Integer
Private Sub Command1_Click()
Open App.Path & "\Impostazioni.ini" For Output As #1
For X = 1 To 4 '4 è il numero delle form
Print #1, "Altezza form: " & Form & X & Height & vbCrLf & "Larghezza form: " & Form & X & Width & vbCrLf
Next X
Close #1
End Sub

P.s. la funzione write #1 non la conosco
ke differenza c'è?

io uso questo

Public inipath, dectext As String
Option Explicit
Public 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
Public 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

Public Const MaxBuf As Integer = 32767

Public Function LeggiIni(ByVal nomeFileIni As String, nomeSezione As String, nomeChiave As String) As String
Dim default As String, nomeValore As String
Dim ret As Long

ContrNomeFile nomeFileIni
default = Chr$(0)
nomeValore = String$(MaxBuf, 0)
ret = GetPrivateProfileString(nomeSezione, nomeChiave, default, nomeValore, MaxBuf, nomeFileIni)
If ret <> 0 Then
    LeggiIni = Left(nomeValore, ret)
Else
    LeggiIni = ""
End If
End Function

Public Sub ScriviIni(ByVal nomeFileIni As String, nomeSezione As String, nomeChiave As String, tempStringa As String)
Dim ret As Long, nomeStringa As String
If tempStringa <> "" Then nomeStringa = tempStringa
ContrNomeFile nomeFileIni
ret = WritePrivateProfileString(nomeSezione, nomeChiave, nomeStringa, nomeFileIni)
End Sub

Public Sub ContrNomeFile(nomeIni As String)
If InStr(nomeIni, ".") = 0 Then nomeIni = nomeIni & ".ini"
If InStr(nomeIni, "\") = 0 Then nomeIni = App.Path & "\" & nomeIni
End Sub

mettilo in un modulo
cn questo codice scegli oltre al percorso, la sezione e la chiave

se vuoi vederlo applicato l' ho usato nel programma libretto dei voti
pierotofy.it/pages/…

@antometal

Il tuo codice funziona..però mi salva il file con applicazione sconosciuta (ke io apro con il blocco note) e ci scrive dentro questi codici...

Formprinc = -5, 341, 519, 773, C, 22, 29, 546, 459, C
Form1 = 48, 127, 572, 557, C, 77, 62, 601, 492, C
Form2 = 88, 211, 612, 641, C, 94, 72, 618, 502, C
Form3 = 0, 0, 524, 430, C, 40, 167, 564, 597, C
Form4 = 110, 145, 634, 575, C, 88, 116, 612, 546, C

E' così?!?

Edit: NN è così, questo me lo fa quando chiudo un qualsiasi progetto vb6...

Se un File lo si apre in modalita' Open qualsiasi variabile scritta sara' interpretata come una stringa di testo in alternativa si dovrebbe aprire un fie in Modalita' Binaria "Binary" ( Sia per Scrivere che per Leggere)
e verra' scritto un file contenente una variabile dello stesso tipo di quella inserita che in questo caso sara' un Single (Property Width As Single) . Quando lo si Riapre bisogna ricordarsi l'Ordine e il tipo di ogni variabile per non incappare in errori Ciao.

Ho risolto in altro modo...

cmq grazie a tutti...