SetPixel и GetPixel. Одна точка закрашивает другую, но не должна

Sub установить_точку(ByVal x As Integer, ByVal y As Integer, ByVal bmp As Bitmap)
        Dim a As Integer = 2
        For i = -a To a
            For j = -a To a
                If x + i < PictureBox1.Width And x + i > 0 And y + j < PictureBox1.Height And y + j > 0 Then
                    If Not bmp.GetPixel(x + i, y + j) = Color.Red  and Not bmp.GetPixel(x + i, y + j) = Color.Black Then
                        If i = 0 And j = 0 Then
                            bmp.SetPixel(x + i, y + j, Color.Red)
                        Else
                            bmp.SetPixel(x + i, y + j, Color.Black)
                        End If
                    End If
 
                End If
            Next
        Next
    End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bm = New Bitmap(PictureBox1.Width, PictureBox1.Height)
        установить_точку(50, 50, bm)
        установить_точку(52, 52, bm)
        PictureBox1.Image = bm
    End Sub

     If Not bmp.GetPixel(x + i, y + j).ToArgb = Color.Red.ToArgb Then
      If i = 0 And j = 0 Then
       bmp.SetPixel(x + i, y + j, Color.Red)
      Else
       bmp.SetPixel(x + i, y + j, Color.Black)
      End If
     End If

     Select Case bmp.GetPixel(x + i, y + j).ToArgb
      Case Color.Red.ToArgb
      Case Color.Black.ToArgb
       If i = 0 AndAlso j = 0 Then
        bmp.SetPixel(x + i, y + j, Color.Red)
       End If
      Case Else
       If i = 0 AndAlso j = 0 Then
        bmp.SetPixel(x + i, y + j, Color.Red)
       Else
        bmp.SetPixel(x + i, y + j, Color.Black)
       End If
     End Select

Public Class Form1
  Dim bm As Bitmap
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    bm = New Bitmap(PictureBox1.Width, PictureBox1.Height)
    установить_точку(50, 50, bm)
    'установить_точку(52, 52, bm)
    PictureBox1.Image = bm
  End Sub
 
  Sub установить_точку(ByVal x As Integer, ByVal y As Integer, ByVal bmp As Bitmap)
    Dim a As Integer = 1 '2
    For i = -a To a
      For j = -a To a
        If i = 0 And j = 0 Then
          bmp.SetPixel(x + i, y + j, Color.Red)
        Else
          bmp.SetPixel(x + i, y + j, Color.Black)
        End If
        Me.Refresh()
        PictureBox1.Refresh()
      Next
    Next
  End Sub
End Class