Private Sub Command1_Click() For a = 1 To 100 Form1.ProgressBar1.Value = a For b = 1 To 1000000 Next b Next a MsgBox "Islem tamamlandi", 0, "Sonuc" Close #1 End End Sub nurdo?an yyldyrym nurdoganyildirim@mynetcom