直接在窗体上绘制二维文本/不加任何控件展现图像

Dim g As Graphics = Me.CreateGraphics
Dim mybrush As New
Dim myfont As New Font("times new roman", 40)
'由于提供了RECTANGLEf对象,所以文本将在矩形中换行
"Hello,world! keenweiwei !", myfont, mybrush, New

由蓝色向黄色渐变

-------------------------------------------------------

不加任何控件展现图像

Dim mybitmap As New Bitmap("d:/我的文档/桌面/002.jpg")
Dim g As Graphics = Me.CreateGraphics
'必须同时指定要绘制的图像以及绘制它的坐标位置
g.DrawImage(mybitmap, 20, 20)

用图片来填充一个椭圆区域

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
'Dim mybrush As New SolidBrush(Color.Yellow)
Dim mybrush As New TextureBrush(New Bitmap("d:/我的文档/桌面/002.jpg"))
Dim g As Graphics = Me.CreateGraphics
g.FillEllipse(mybrush, ClientRectangle)
End Sub