blay

Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BT1.Click LBL2.Text = ProgressBar1.Value & "%" End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ProgressBar1.Minimum = 0 ProgressBar1.Max…