Il tanto deprecato DoEvent lo avevo usato per far girare il progressdialog durante una elaborazione.
Non posso sostituire con Sleep(0) in quanto fa il return.
Quindi?
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
			
			Non posso sostituire con Sleep(0) in quanto fa il return.
Quindi?
			
				B4X:
			
		
		
		    strquery = "SELECT * FROM tabella "
    dbcursor = Main.dbSql.ExecQuery(strquery)
    Dim documento As String
    For i = 0 To dbcursor.RowCount - 1
        dbcursor.position = i
        ProgressDialogShow("Lettura tabella in corso")
        DoEvents
    next 
				 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		