标题：graphics

总置顶·置顶·精华·锁定·删除·移动·提升广告位招租，广告代号：BbsGGAD

12-25 23:31: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Maxthon 2.0)

xcq 机长
头衔 --
注册 07-04-02
来自 sz: graphics
Public Class Form1

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
draw1()
End Sub

Sub draw1()
Dim g As Graphics = Me.CreateGraphics
Dim myBrush As New System.Drawing.Drawing2D.LinearGradientBrush(ClientRectangle, Color.Green, Color.Blue, System.Drawing.Drawing2D.LinearGradientMode.Vertical)
g.FillEllipse(myBrush, New RectangleF(0, 0, Me.Height, Me.Width))
End Sub

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
draw1()
End Sub

Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
draw1()
End Sub
End Class
广告位招租，广告代号：BbsGGADtop

标题
使用表情识别使用UBB代码使用个人签名	广告位招租，广告代号：PubGGAD