Question : Run-time error '6'  Overflow

I have currently taken over support of a tool written in Visual Basic 6. Trying to feel my way thru the code right now. However the business user I support need a issue resolved quickly with a report he is running. When the user clicks on the report ,a message pops up -> run-time error '6'; Overflow and the application exits.

I just tried to debug to find where exactly the error is occurring and a snippet of code (4 lines) is given below..

         Load frmActualProjectedResource.lblControl(iCount)

        frmActualProjectedResource.lblControl(iCount).TOP =  frmActualProjectedResource.iTopBASE + (240 * iCount)

         frmActualProjectedResource.lblControl(iCount).Caption = frmActualProjectedResource.lstControls.List(0) & " "
         
frmActualProjectedResource.lblControl(iCount).Visible = True

The OVERFLOW error occurs on the line that is BOLD. In debug mode I see that the value in iCount=130 & value in "frmActualProjectedResource.iTopBASE" equals 1800.

I do not see any data type in there so that I can quickly troubleshoot. I am still learning my way with VB6 and I am not sure why the error is occurring at that statement. Any help is appreciated ?

Answer : Run-time error '6'  Overflow

This will work for you:
 frmActualProjectedResource.lblControl(iCount).TOP =  frmActualProjectedResource.iTopBASE + CSng(240 * iCount)
Good luck.