I wrote the below. Its supposed to be working fine but in reality, the form with information(fillerformmw) did not come properly(its boundary with title could be seen but nothing inside the form became visible,i.e. inside the form a few sentences like 'Choosing the proper material...' were put on as lables but they did not become visible). However glass mouse cursor was shown and it returned to normal after the loop was completed. On the loop completion, the next form(sizemwform) showed up properly. One of my thought is that the loop may be consuming so many memory space that it did not show up.

Any help/hint/suggestion/thought/referral to links-books would be gratefully appreciated.

For every response I receive, I would try to give a hand anyway someone in this forum or other areas of life.
Code:
Private Sub mwprodselectLbl_Click()
fillermwform.Show
filename = App.Path + "\glas.ani"
    new_cursor = LoadCursorFromFile(filename)
    old_cursor = GetCursor()
    old_cursor = CopyCursor(old_cursor)
    SetSystemCursor new_cursor, OCR_NORMAL
    
    

intSum = 0
For intCounter = 1 To 100000000
intSum = intSum + intCounter
Next intCounter
fillermwform.Hide
SetSystemCursor old_cursor, OCR_NORMAL
    

sizemwform.Show
Unload Me
End Sub