Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 1 To 100
            ProgressBar1.Value = i
            Application.DoEvents()

            Select Case ProgressBar1.Value
                Case 20
                    Label1.Text = "Ahmad"
                Case 40
                    Label1.Text = "Mohammad"
                Case 60
                    Label1.Text = "Sniper"
                Case 80
                    Label1.Text = "Qassam"
                Case 100
                    Label1.Text = "vb.net"
            End Select


            Threading.Thread.Sleep(100)
        Next
    End Sub