Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = FormBorderStyle.None
End Sub
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
Dim g As Graphics = Me.CreateGraphics
Dim gp As New Drawing2D.GraphicsPath
Dim r As New Region
Dim p(6) As Point
p(0) = New Point(0, 0)
p(1) = New Point(150, 0)
p(2) = New Point(150, 100)
p(3) = New Point(50, 100)
p(4) = New Point(40, 130)
p(5) = New Point(30, 100)
p(6) = New Point(0, 100)
gp.AddPolygon(p)
g.DrawPath(Pens.Black, gp)
r = New Region(gp)
g.FillRegion(Brushes.LemonChiffon, r)
g.DrawPath(Pens.Black, gp)
Me.Region = r
g.DrawString("这样可以吗?", New Font("宋体", 12, FontStyle.Regular), Brushes.Black, 10, 10)
End Sub