FillRectangleで塗りつぶしが出来ない

FillRectangleとDrawRectangleで塗りつぶされる領域が違ってた。

DrawRectangleより、Width, Height が、それぞれ1ずつ少なく塗りつぶされていた。

Dim g As Graphics = e.Graphics
Dim rect As New Rectangle(20, 20, 120, 120)

g.DrawRectangle(Pens.Blue, rect)
g.FillRectangle(Brushes.Red, rect)

g.Dispose()