Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer
For x = ProgressBar1.Minimum To ProgressBar1.Maximum
ProgressBar1.Value = x
Label1.Text = x / 100 & “%”
If x = ProgressBar1.Maximum Then
PictureBox1.Image = Image.FromFile(“C:\Users\Public\Pictures\Sample Pictures\Jellyfish.jpg”)
End If
Next x
End Sub
End Class