Non c'è nessun For Each...
Questo è il codice del load della form:
Dim rigaLetta As String
Dim fileHtml As String
Dim arrayLetto(2) As String
Using reader As StreamReader = New StreamReader("C:\SiteManage\SiteManage.ini")
rigaLetta = reader.ReadLine
Do While rigaLetta <> ""
arrayLetto = Split(rigaLetta, "-")
Select Case arrayLetto(0)
Case "IndFTP"
indFTP = arrayLetto(1)
Case "UteFTP"
userFTP = arrayLetto(1)
Case "PwdFTP"
pwdFTP = arrayLetto(1)
End Select
rigaLetta = reader.ReadLine
Loop
End Using
Dim atd As New Attesa
atd.Show()
Application.DoEvents()
fileHtml = Dir("C:\SiteManage\oriHtml\news e promo.html")
If fileHtml <> "" Then
System.IO.File.Delete("C:\SiteManage\oriHtml\news e promo.html")
End If
atd.Close()