Private Sub Command1_Click() Dim i As Integer For i = 0 To 10000 Me.ProgressBar1.Value = i Next End SubPrivate Sub Form_Load() Me.ProgressBar1.Min = 0 Me.ProgressBar1.Max = 10000 End Sub
Private Sub Form_Load() ProgressBar1.Min = 0 ProgressBar1.Max = 100 End Sub Private Sub Command1_Click() Dim i As Integer For i = 1 To 100 ProgressBar1.Value = i Next i End Sub
Dim i As Integer
For i = 0 To 10000
Me.ProgressBar1.Value = i
Next
End SubPrivate Sub Form_Load()
Me.ProgressBar1.Min = 0
Me.ProgressBar1.Max = 10000
End Sub
ProgressBar1.Min = 0
ProgressBar1.Max = 100
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 100
ProgressBar1.Value = i
Next i
End Sub