How to speed up the following program?
When lots of image is loaded, it will hang, how to correct it?
____________________________________________________
Function Load_image()
For i = 1 To totalfile
Load Image1(i)
Load Label1(i)
If totalfile > 32 Then
VScroll1.Enabled = True
changerate = Abs((totalfile - 32) / 8) + 1
If changerate > 0 Then
VScroll1.Max = -(changerate * 5)
End If
End If
Call image_move
Call check
Next i
For i = 1 To totalfile
If File1.Pattern = "*.jpg;*.gif;*.bmp" Then
Image1(i) = LoadPicture(Dir1.Path + special + File1.List(i - 1))
End If
ProgressBar1.Value = ProgressBar1.Value + 1
Call label_move
Call label_naming
Next i
end function