Asta ii tot codu : Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Timer1.Start() End Sub Dim i As Integer = 0 Dim result = MessageBox.Show("blabla?", "blabla2", MessageBoxButtons.YesNo) Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick i = 1 If i = 1 = True Then If result = DialogResult.Yes Then ProgressBar1.Increment(1) Label1.Text = ProgressBar1.Value & ("%") End If End If End Sub End Class Asa ai zis tu sa fac , nu merge cum vreau eu.Dau Start Debugging imi apare msgbox-u cu "bla bla" , dau Yes/no imi apare programul , dau Start si incepe progress bar-u fara sa mai apara intrebare.Deci codul tau nu face decat sa ma intrebe cand dau 2xclick pe program nu cand dau eu Start.