Dim FN%, X%
 
   FN = FreeFile
    Open App.Path & "\config.ini" For Output As #FN
      For X = 0 To List1.ListCount - 1
        Print #FN, CStr(List1.List(X))
      Next X
    Close FN
    Else
    Exit Sub
    End If