rk around vb bug for JPG and GIF - picture is 2 pixels larger than
       expected
      grdThis.BackgroundPictureHeight = grdThis.BackgroundPictureHeight - 3
   Else
      Set grdThis.BackgroundPicture = Nothing
   End If
End Sub

Private Sub chkBlendSelection_Click()
   grdThis.SelectionAlphaBlend = chkBlendSelection.Value
   grdThis.SelectionOutline = chkBlendSelection.Value
   If (grdThis.SelectionAlphaBlend) Then
      grdThis.DrawFocusRectangle = False
      grdThis.HighlightForeColor = vbWindowText
 