Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics = Me.CreateGraphics '设置画布（用PS说法）
g.DrawRectangle(Pens.Red,0,0,300,100) '绘制矩形（红画笔,起点左上角,宽300,高100)
End Su
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics = Me.CreateGraphics '设置画布（用PS说法）
g.DrawRectangle(Pens.Red,0,0,300,100) '绘制矩形（红画笔,起点左上角,宽300,高100)
End Su