Mr. Wallace, Thanks for your query. Well, don't bother your English is fine. I'm taking your problem and hope my answer is useful to you. Please adjust it according to your needs, I tried and it was working as per my perception.
Sub abc() For i = 1 To 45 <Form_Name>.<Object_Name>.Width = _ <Form_Name>.<Object_Name>.Width + 1 newHour = Hour(Now()) newMinute = Minute(Now()) + 1 newSecond = Second(Now()) waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime Next End Sub Please replace form name and object name. I took command button as object to experiment. ________________________________________ Thanks & Regards Ashish Jain McKinsey India Knowledge Center (Microsoft Certified Application Specialist) (Microsoft Certified Professional) http://www.excelitems.com http://www.openexcel.com ________________________________________ On Nov 17, 6:53 pm, Alfred WALLACE <jos...@gmail.com> wrote: > no idea ? Or may i learn english before posting my questions ? lol > > José > > On 15 nov, 01:13, Alfred WALLACE <jos...@gmail.com> wrote: > > > > > > > > > hello to all ! > > > I'm trying to make a shape in an userform, > > and, to make longuer longuer this shape > > like a progress bar for a time duration. > > > for exemple, my duration is 45 minutes. > > the max shape longuest side represent 45 minutes. > > > Every 1 minute i want to increment this shape inside my userform. > > > Can someone give me some examples or tutorials covering > > my problem ? > > > thanks from France (and my horrible english) > > > José On Nov 17, 6:53 pm, Alfred WALLACE <jos...@gmail.com> wrote: > no idea ? Or may i learn english before posting my questions ? lol > > José > > On 15 nov, 01:13, Alfred WALLACE <jos...@gmail.com> wrote: > > > > > > > > > hello to all ! > > > I'm trying to make a shape in an userform, > > and, to make longuer longuer this shape > > like a progress bar for a time duration. > > > for exemple, my duration is 45 minutes. > > the max shape longuest side represent 45 minutes. > > > Every 1 minute i want to increment this shape inside my userform. > > > Can someone give me some examples or tutorials covering > > my problem ? > > > thanks from France (and my horrible english) > > > José -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts