Это работает:
Dim bmp As New Bitmap(25, 25)
Using g As Graphics = Graphics.FromImage(bmp)
g.Clear(Color.Transparent) 'This is the key point'
g.FillEllipse(Brushes.Red, New Rectangle(0, 0, 50, 50))
g.DrawEllipse(Pens.Black, New Rectangle(0, 0, 50, 50))
End Using
bmp.Save("C:\a\out.png", Imaging.ImageFormat.Png)
РЕДАКТИРОВАТЬ: блин, мисс, прочитайте вопрос, дайте мне секунду, чтобы изменить код ...
EDIT2:
Готово, вам нужна графическая дорожка:
Dim bmp As New Bitmap(25, 25)
Using g As Graphics = Graphics.FromImage(bmp)
Dim gp As New GraphicsPath
gp.AddLine(0, 0, 25, 0)
gp.AddArc(New Rectangle(0, 0, 50, 50), -90, -90)
gp.AddLine(0, 25, 0, 0)
g.Clear(Color.Transparent)
g.FillPath(Brushes.Red, gp)
g.DrawPath(Pens.Black, gp)
End Using
bmp.Save("C:\a\out.png", Imaging.ImageFormat.Png)