Grazie, ora ho un altro problema, la progressbar:
Vi do il codice che ho scritto:

'pulsante di avvio'
Private Sub avvio_controllo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles avvio_controllo.Click
Dim ni As Integer
Bar1.Maximum = 100
For ni = 0 To 100
Bar1 = ni

Next ni

End Sub
'bar progress'
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bar1.Click
Bar1.Minimum = 0
Bar1.Maximum = 100
End Sub
End Class

mi da errore nel pulsante, nel senso che "ni" non riesce a convertirlo da tipo integer a windows.system.fomr.progressbar