[administrator]

جرب الكود التالي

PHP كود :

Option Explicit

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
ProgressBar1.Value = 0
ProgressBar2.Value = 0
ProgressBar3.Value = 0
ProgressBar4.Value = 0
End Sub

Private Sub Form_Load()
ProgressBar2.Max = 1000
ProgressBar1.Max = 100
ProgressBar3.Max = 100
ProgressBar4.Max = 1000
End Sub

Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
Exit Sub
End If
ProgressBar1.Value = ProgressBar1.Value + 2
ProgressBar1.Refresh
ProgressBar3.Value = ProgressBar3.Value + 2
ProgressBar3.Refresh
End Sub

Private Sub Timer2_Timer()
If ProgressBar2.Value = 1000 Then
Timer2.Enabled = False
Exit Sub
End If

ProgressBar2.Value = ProgressBar2.Value + 5
ProgressBar2.Refresh
ProgressBar4.Value = ProgressBar4.Value + 5
ProgressBar4.Refresh
End Sub