if i understand corectly may be this is u need
Code:
Private Sub tm_Timer()
Picture2.Refresh
Picture1.Refresh
cnt = cnt + 1
Label1.Caption = cnt & "      %  "
Label2.Caption = "Product " & cnt
If cnt > 100 Then
Picture2.Width = Picture1.Width
cnt = 0
Unload Me