scritta da far affacciare in una label

[Markho]

si... si....

questo è il tuo programmino:

Option Explicit

Private i As Integer

Private Sub Command1_Click()
    Timer1.Interval = 500 'internvallo in millisecondi
    Timer1.Enabled = True
    
End Sub

Private Sub Form_Load()
    i = 0
    ProgressBar1.Min = 0
    ProgressBar1.Max = 100
    Timer1.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    i = i + 1
    ProgressBar1.Value = i
    If ProgressBar1.Value = ProgressBar1.Min Then
        lblStato.Caption = "Inizio"
    Else
        If ProgressBar1.Value = ProgressBar1.Max Then
        lblStato.Caption = "Completato"
        Timer1.Enabled = False
        Else
            lblStato.Caption = "In Corso " & i & "%"
        End If
    End If
End Sub

aggiungi a una form:
una label (lblStato)
un timer (timer1)
una progressbar (ProgressBar1)
e un tasto (Command1)

scusa, ma il 90% che hai già fatto che era, la creazione del progetto?