VB 2010 表單Paint 事件

‘ VB 2010中為避免VB繪圖方法所繪製的圖案，因為表單縮放或被其他表單
‘ 覆蓋後再移開造成圖案消失，可將繪圖敘述撰寫在 「表單的Paint」事件程序中

' 建立繪圖介面: 
' Dim 物件名稱 As Graphics = 繪圖控制項.CreateGraphics
' 下列宣告為：建立一個名稱為graph的Graphics物件並將表單的
' 繪圖介面指定給Graph
   Dim graph As Graphics = Me.CreateGraphics

' 繪製直線: 
' 物件名稱.DrawLine(線條色彩, X1, Y1, X2, Y2)
'  graph.DrawLine(Pens.Red, 35, 124, 152, 124)

下列程式請分別在 Form1_Click 與 Form1_Paint 事件中
輸入下列程式碼：
     Dim graph As Graphics = Me.CreateGraphics
     graph.DrawLine(Pens.Red, 36, 124, 236, 124)
     graph.DrawLine(Pens.Red, 136, 24, 136, 224)

操作：
     (1)執行。      

     (2)拖曳表單右下角，放大/縮小表單，並觀察表單上圖形之變化。