ProgressBar - ProgressBar.frm


	Private Sub Command2_Click() 'Ad ogni click il valore corrente aumenta di 1 ProgressBar1.Value = ProgressBar1.Value + 1 End Sub Private Sub Form_Load() 'Imposto il valore minimo ProgressBar1.Min = 0 'Imposto il valore massimo ProgressBar1.Max = 10 'Imposto il valore corrente ProgressBar1.Value = 0 End Sub Private Sub Form_Unload(Cancel As Integer) MsgBox "By Roberto VB, 1/6/2007" End Sub