' Show the progress ' expN1 Value ' expC1 Text ' Optional Public Function ShowProgress(ByVal tnValue As Integer, _ Optional ByVal tcText As String = "") As Boolean ' If the form is not visible If Not Visible Then Show() End If ' If we have a text If tcText.Length > 0 Then oLabel.Text = tcText End If ' If the value is lower or equal to 100 If tnValue <= 100 Then oProgressBar.Value = tnValue End If ' Percentage oLabelPercentage.Text = tnValue.ToString + "%" ' Force a refresh Windows.Forms.Application.DoEvents() Return True End FunctionHowever, depending on the process, the percentage display will be offset by 1 to 20%. Basically, showing 100% will be as if it would be at 85%. Then, 15% will be as if it would be 0%. And, so will be the case for various variations depending on the process.