Неверное чтение уровней пикселей

Private Sub Picture1_DblClick()
 ' Set xl = CreateObject("Excel.Application")
 ' xl.workbooks.open ("d:\Таблицы\Шумодав.xls")
   ' xl.Visible = TrueSavePicture Picture1, ("d:\Таблицы\Шумодав.jpg")
  Dim x As Integer
  Dim y As Integer
  Dim строка  As Integer
  Dim столбец As Integer
  Dim уровень(10) As Long
  Dim ширина As Integer
  Dim высота  As Integer
  Dim среднее  As Double
  Dim i  As Long
  Dim min(1) As Long
  Dim max(1)  As Long
      ширина = Picture1.Width
высота = Picture1.Height
 
  For y = 0 To высота - 1
   строка = 1
  For x = 0 To ширина - 1 Step 10
      'считывание пикселей в строке
      'проверка 10-ти последовательных пикселей и вычисление среднего значения
   уровень(1) = Me.Picture1.Point(x, y)
 ' уровень(1) = Int(Me.Picture1.Point(x, y) / 65793)
  уровень(2) = Me.Picture1.Point(x + 1, y)
 ' уровень(2) = Int(Me.Picture1.Point(x + 1, y) / 65793)
  уровень(3) = Me.Picture1.Point(x + 2, y)
  'уровень(3) = Int(Me.Picture1.Point(x + 2, y) / 65793)
  уровень(4) = Me.Picture1.Point(x + 3, y)
 ' уровень(4) = Int(Me.Picture1.Point(x + 3, y) / 65793)
  уровень(5) = Me.Picture1.Point(x + 4, y)
  'уровень(5) = Int(Me.Picture1.Point(x + 4, y) / 65793)
  уровень(6) = Me.Picture1.Point(x + 5, y)
 ' уровень(6) = Int(Me.Picture1.Point(x + 5, y) / 65793)
  уровень(7) = Me.Picture1.Point(x + 6, y)
 ' уровень(7) = Int(Me.Picture1.Point(x + 6, y) / 65793)
  уровень(8) = Me.Picture1.Point(x + 7, y)
 ' уровень(8) = Int(Me.Picture1.Point(x + 7, y) / 65793)
  уровень(9) = Me.Picture1.Point(x + 8, y)
 ' уровень(9) = Int(Me.Picture1.Point(x + 8, y) / 65793)
  уровень(10) = Me.Picture1.Point(x + 9, y)
 ' уровень(10) = Int(Me.Picture1.Point(x + 9, y) / 65793)

Option Explicit
 
Private Sub Command1_Click()
    GetRGB
End Sub
 
Private Sub GetRGB()
    Dim i As Long, j As Long, c As Long
    Dim R As Long, G As Long, B As Long, BG As Long
    For i = 0 To 9
             c = P.Point(i, 0)
             R = c Mod 256
             BG = c / 256
             G = BG Mod 256
             B = BG / 256
             Print "   R = " & R, "G = " & G, "B = " & B
    Next i
End Sub

R = c Mod 256
      BG = c / 256
      G = BG Mod 256
      B = BG / 256

        For рисунок= 0 To 48
           уровень(рисунок, 0) = Frm1_Редактор.Рисунок1(рисунок).Point(X, Y)

Public Sub перенести_изображение()
 
Dim i As Integer
Dim X As Integer
Dim Y As Integer
Dim ширина As Integer
Dim высота  As Integer
Dim уровень(1, 4) As Long
Dim цвет(3)   As Integer
 
ширина = Форма1.Рисунок1.Width
высота = Форма1.Рисунок1.Height
 
For Y = 1 To высота - 1  'проход по строкам
     For X = 1 To ширина - 1  'проход по столбцам
           уровень(1, 0) = Форма1.Рисунок1.Point(X, Y) 'считывание общего цвета
           уровень(1, 1) = уровень(1, 0) Mod 256 'вычисление красного
           уровень(1, 4) = уровень(1, 0) \ 256
           уровень(1, 2) = уровень(1, 4) Mod 256 'зелёный
           уровень(1, 3) = уровень(1, 4) \ 256 'синий
        For i = 1 To 3 ' по цветам
             цвет(i) = уровень(1, i)
       Next i
        цвет(0) = RGB(цвет(1), цвет(2), цвет(3))
         Форма1.PSet (X / 16, Y / 16), цвет(0)
      Next X
Next Y
 
End Sub