i'm using Visual Basic 6 and i'm building a Property page for Strips files, but one procedure is ignored and i don't know why...
i have 2 picturebox: picVisualizar(where is the original image) and picShow for see the subimages with a timer and i have a shape(shpSubImagem) for select the subimages...
the procedure is these:

Code:
Private Sub UpgradeSubimages()
    Dim i As Long
    Dim y As Long
    Dim x As Long
    If shpSubImagem.Count > 1 Then
        For i = 1 To shpSubImagem.Count - 1
            Unload shpSubImagem(i)
        Next i
    End If
    i = 1
    For y = 1 To CLng(txtImagensLinha.Text) 'Line Images
        For x = 1 To CLng(txtImagensColuna.Text) 'Column Images
            Load shpSubImagem(i)
            shpSubImagem(i).Visible = True
            shpSubImagem(i).Left = CLng(txtPosX.Text) + IFF(x > 1, (CLng(txtHeight.Text) + CLng(txtSeparaçãoHorizontal.Text)) * (x - 1), 0)
            shpSubImagem(i).Top = CLng(txtPosY.Text) + IFF(y > 1, (CLng(txtWidth.Text) + CLng(txtSeparaçãoVertical.Text)) * (y - 1), 0)
            shpSubImagem(i).Height = CLng(txtHeight.Text)
            shpSubImagem(i).Width = CLng(txtWidth.Text)
            i = i + 1
        Next x
    Next y
End Sub
can anyone help me?
thanks