ProgressBar merupakan kontrol yang digunakan untuk menampilkan indikator berbentuk segiempat berwarna biru yang bergerak untuk mengisi kotak segiempat yang menggambarkan lama dari suatu operasi dengan gerakan dari kiri ke kanan.
Source Code:
Private Sub Command1_Click()
ProgressBar1.Min = 1
ProgressBar1.Max = 5000
For a = ProgressBar1.Min To ProgressBar1.Max Step 0.001
ProgressBar1.Value = a
Next a
End Sub
Download File
0 komentar:
Posting Komentar