Visual Basic VB6: como melhorar o desempenho do ciclo 'for'?

[Cambalinho]

eu sei que é 1 linguagem antiga... mesmo assim vamos falar sobre desempenho nos ciclos:

Public Function SetTransparentColor(color As Long)
    Dim X As Integer
    Dim Y As Integer
    Dim c As Long
    Dim h As Long
    Dim w As Long
    Dim temp As BGRAQUAD ' substitua BGRColor pelo tipo de dado correto usado em bDibBGRA


    h = Height - 1
    w = Width - 1


    For c = 0 To h * w ' movendo as operações fora do loop for
        X = c Mod (w + 1)
        Y = Int(c / (w + 1))
        temp = bDibBGRA(c)


        ' modificando apenas a propriedade necessária
        If (RGB(temp.B, temp.G, temp.R) = color) Then
            temp.B = 255
            bDibBGRA(c) = temp
        End If


Next c


End Function

esta função, mesmo sem nada dentro do 'for', consome imenso desempenho... porque isso acontece?

deveria usar 'while' ou tem haver com outras coisas?