建立圖形物件

有三種方法可以建立圖形物件

1. 來自油漆事件

每次重繪控制元件（調整大小，重新整理…）時都會呼叫此事件，如果你希望控制元件始終在控制元件上繪製，請使用此方法

   'this will work on any object's paint event, not just the form
   Private Sub Form1_Paint(sender as Object, e as PaintEventArgs) Handles Me.Paint
     Dim gra as Graphics
     gra = e.Graphics
   End Sub

2. 建立圖形

當你想要在控制元件上建立一次性圖形時，或者你不希望控制元件重新繪製自身時，通常會使用此選項

   Dim btn as New Button
   Dim g As Graphics = btn.CreateGraphics

3. 從現有的圖形

如果要繪製和更改現有圖形，請使用此方法

   'The existing image can be from a filename, stream or Drawing.Graphic
   Dim image = New Bitmap("C:\TempBit.bmp")
   Dim gr As Graphics = Graphics.FromImage(image)