Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = 5 Then
Label5.Text = "888"
Label5.ForeColor = Color.White
End If
If ProgressBar1.Value = 60 Then
Label5.Text = "888"
Label5.ForeColor = Color.White
End If
If ProgressBar1.Value = 99 Then
Label5.Text = "888"
Label5.ForeColor = Color.LightGreen
Label6.Text = "888"
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Start()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("***", MsgBoxStyle.OkOnly, "***")
Label6.Text = "***"
End Sub
End Class