For Each Line As String In System.IO.File.ReadAllLines("pippo.txt", New System.Text.UTF8Encoding)
    ElaboraSQL
    RaiseEvent IncrementaContatore_e_ProgressBar()
    Me.Refresh
    DoEvents '(o Application.DoEvents, non ricordo precisamente)
Next