Постоянно вылетает ошибка с определением цветов пикселей

Private Sub Picture1_Change()
On Error Resume Next
 
Dim i As Integer
    Dim schetchik_razlomov As Integer
    Dim Y_0 As Integer
    Dim X_0 As Integer
    Dim shag_x As Integer
    Dim shag_y As Integer
    Dim X_1 As Long
    Dim Y_1 As Long
    Dim a_1 As Integer
    Dim a_2 As Integer
    
        i = 3                            ' при этом значении i получается 64 квадрата. то есть исходную картинку делим на 64 квадрата и сканируем. (если i=1 то иходную картинку делим на 4 части и т.д.)
        schetchik_razlomov = 0   ' это счетчик квадратов, в которых есть не белый пиксель
        
        a_1 = Me.Picture1.Picture.Width    
        a_2 = Me.Picture1.Picture.Height 
        shag_x = a_1 / (2 ^ i)     
        shag_y = a_2 / (2 ^ i)
        X_1 = (2 ^ i - 1) * a_1 / (2 ^ i)        ' координаты начала последнего квадрата
        Y_1 = (2 ^ i - 1) * a_2 / (2 ^ i)
        
         For Y_0 = 1 To Y_1 Step shag_y              ' сначала мы идем в цикле по квадратам
            For X_0 = 1 To X_1 Step shag_x                         
                
                For Y = Y_0 To Y_0 + shag_y Step 1  ' здесь уже выбрали квадрат и сканируем его
                    For X = X_0 To X_0 + shag_x Step 1
 
                        If Picture1.Point(X, Y) <> 16777215 Then 
                             Debug.Print "!!the colour of the pixel with coordinates X=" & X & ",  Y=" & Y & ":  " & Picture1.Point(X, Y)
                             schetchik_razlomov = schetchik_razlomov + 1 
                             GoTo sleduushiy_kavdrat
                        
                        End If
                     Next 'for x
                Next 'for y
               
               
 
            sleduushiy_kavdrat:
            Next    'for X_0
  
        Next   'for Y_0
        Debug.Print vbNewLine & "i=  " & i & "    !schetchik_razlomov=   " & schetchik_razlomov 
End Sub

Private Sub Picture1_Change()
On Error Resume Next
 
Dim i As Integer
Dim schetchik_razlomov As Integer
Dim Y_0 As Integer
Dim X_0 As Integer
Dim shag_x As Integer
Dim shag_y As Integer
Dim X_1 As Long
Dim Y_1 As Long
Dim a_1 As Integer
Dim a_2 As Integer
Me.Picture1.ScaleMode = 3
i = 3 ' при этом значении i получается 64 квадрата. то есть исходную картинку делим на 64 квадрата и сканируем. (если i=1 то иходную картинку делим на 4 части и т.д.)
schetchik_razlomov = 0 ' это счетчик квадратов, в которых есть не белый пиксель
 
a_1 = Me.Picture1.ScaleWidth
a_2 = Me.Picture1.ScaleHeight
shag_x = a_1 / (2 ^ i)
shag_y = a_2 / (2 ^ i)
X_1 = (2 ^ i - 1) * a_1 / (2 ^ i) ' координаты начала последнего квадрата
Y_1 = (2 ^ i - 1) * a_2 / (2 ^ i)
 
For Y_0 = 1 To Y_1 Step shag_y ' сначала мы идем в цикле по квадратам
For X_0 = 1 To X_1 Step shag_x
 
For Y = Y_0 + 1 To Y_0 + shag_y Step 1 ' здесь уже выбрали квадрат и сканируем его
For X = X_0 + 1 To X_0 + shag_x Step 1
 
If Picture1.Point(X, Y) <> 16777215 Then
Debug.Print "!!the colour of the pixel with coordinates X=" & X & ", Y=" & Y & ": " & Picture1.Point(X, Y)
schetchik_razlomov = schetchik_razlomov + 1
GoTo sleduushiy_kavdrat
 
End If
Next 'for x
Next 'for y
 
 
 
sleduushiy_kavdrat:
Next 'for X_0
 
Next 'for Y_0
Debug.Print vbNewLine & "i= " & i & " !schetchik_razlomov= " & schetchik_razlomov
Me.BackColor = vbRed: Beep
End Sub

Me.Picture1.ScaleMode = 3

a_1 = Me.Picture1.ScaleWidth
a_2 = Me.Picture1.ScaleHeight