Try: For X = 1 To 100 Step 1 ProgressBar1.Value = X / 100 ProgressBar1.Refresh Wait 0.1 Next
Lee __________ "Artificial Intelligence is no match for natural stupidity." On 12/17/2014 03:33 PM, Christian e Ana Luiza Britto wrote: > Hi I'm trying to build a form with a progress bar. I make a simple > For...Next loop to increment the progress bar value. The problems is > that the Form only appears on the screen when the loop reach the final > value. What I have to do to see the working bar progress? > Christian > > Public Sub Form_Show() > Dim X As Integer > X = 0 > For X = 1 To 100 Step 1 > ProgressBar1.Value = X / 100 > Wait 1 > Next > End > > ------------------------------------------------------------------------------ > Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server > from Actuate! Instantly Supercharge Your Business Reports and Dashboards > with Interactivity, Sharing, Native Excel Exports, App Integration & more > Get technology previously reserved for billion-dollar corporations, FREE > http://pubads.g.doubleclick.net/gampad/clk?id=164703151&iu=/4140/ostg.clktrk > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user > ------------------------------------------------------------------------------ Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server from Actuate! Instantly Supercharge Your Business Reports and Dashboards with Interactivity, Sharing, Native Excel Exports, App Integration & more Get technology previously reserved for billion-dollar corporations, FREE http://pubads.g.doubleclick.net/gampad/clk?id=164703151&iu=/4140/ostg.clktrk _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user