PRIVATE SUB Command1_Click () DIM I As Long, J AS Longfor I = 1 to 100 Text1.Text = I for J = 1 To 100000: Doevents Next Next NEXT
Text1.text = "DONE" End Sub
'You can change the location of doeivents to see
