Listing B


'Check left column
IntegerXToCheck = Math.Max(IntegerXCounter - 1, 0)

'Check up
IntegerYToCheck = Math.Max(IntegerYCounter - 1, 0)

If BitmapText.GetPixel(IntegerXToCheck, IntegerYToCheck).A > 0 And BitmapText.GetPixel(IntegerXToCheck, IntegerYToCheck).ToArgb <> IntegerHaloColorARGB Then
    BitmapText.SetPixel(IntegerXCounter, IntegerYCounter, HaloColor)
    Continue For
End If