'Beispiel : Ini Datei mit Werten aus einem Array anlegen.
'NG.:30.05.03.do
'
Private Declare Function WritePrivateProfileString Lib "kernel32" _
                                    Alias "WritePrivateProfileStringA" _
                                    (ByVal lpAppName As String, _
                                    ByVal lpKeyName As Any, _
                                    ByVal lpString As Any, _
                                    ByVal lpFileName As String) _
                                    As Long
 
Private Sub Command1_Click()
    Call WriteIniFile("Test", App.Path & "\test.ini")
End Sub
 
Private Sub WriteIniFile(ByVal Section As String, ByVal Filename As String)
    Dim n           As Integer
    Dim Key         As Variant
    Dim KeyValue    As Variant
 
    On Error Resume Next
    Key = Array("Printer", "Monitor", "Drive", "Floppy", "Cam")
    KeyValue = Array("HP", "Samsung", "Maxtor", "Nec", "Logitech")
 
    For n = 0 To 4
        Call WritePrivateProfileString(Section, CStr(Key(n)), CStr(KeyValue( _
          n)), Filename)
    Next
End Sub
 
Private Sub Command2_Click()
    Call Unload(Me)
End Sub