Общие принципы работы с прогрессбаром - VB

Формулировка задачи:

Ребята здравствуйте! подскожите пожалуйсто каким методом, (кроме конечно тыка) можно регулировать скорость и узнавать сколько прибавить или убавить циферку в прогрессбаре относительно длинны его, что бы не запускать десять раз программу на проверку: имеется такой код

                    Листинг программы
                
 
                        
                          
                    
ProgressBar1.Visible = True
  MyValue = Int((12000 * Rnd) + 1) 'здесь ее длинна
    ProgressBar1.Min = 1
     ProgressBar1.Max = 5000' здесь  регулировать скорось
      For x = 1 To MyValue
        ProgressBar1.Value = x
    DoEvents
Next x
  ProgressBar1.Visible = False

Решение задачи: «Общие принципы работы с прогрессбаром»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
ProgressBar1.Visible = True
  MyValue = Int((12000 * Rnd) + 1) '
    ProgressBar1.Min = 1
                        k = 1     ' 2, 3, 4,... , 0.1, 0.2, ...
     ProgressBar1.Max = k * MyValue ' 
      For x = 1 To ProgressBar1.Max 
        ProgressBar1.Value = x 
    DoEvents
Next x
  ProgressBar1.Visible = False
End Sub
 
Private Sub Command2_Click()
Timer1.Enabled = False
ProgressBar1.Visible = True
  MyValue = Int((12000 * Rnd) + 1) 'Г§Г¤ГҐГ±Гј ГҐГҐ Г¤Г«ГЁГ*Г*Г*
    ProgressBar1.Min = 1
    ProgressBar1.Max = MyValue
    ProgressBar1.Value = 1
Timer1.Interval = 1 '  10,100,...
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
k = 100 '   20,300,...
If ProgressBar1.Value < ProgressBar1.Max - k Then
        ProgressBar1.Value = ProgressBar1.Value + k
Else
Timer1.Enabled = False
ProgressBar1.Visible = False
End If
End Sub