[PartyPaint]

tanks but i have vb6 and now works but the width of the bar doesnt not stop incrementing O.o
look:

Code:

Private Sub Timer1_Timer() Picture1.Visible = True Picture1.Width = Picture1.Width + 100 If Picture1.Width = Picture2.Width Then Timer1.Enabled = False End If End Sub

did you set the minimum to 0% & set the maximum to 100% ?