Public Sub SetWindowRegion()
        Dim FormPath As System.Drawing.Drawing2D.GraphicsPath
        Dim Reg As Drawing.Region
        Dim lRet As Long
        FormPath = New Drawing2D.GraphicsPath()
        FormPath.AddEllipse(New Rectangle(0, 0, 250, 120))
        Me.Region = New Region(FormPath)
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Region = Nothing
        SetWindowRegion()
End SubProtected Overrides Sub OnResize(ByVal e As System.EventArgs)
        Me.Region = Nothing
        SetWindowRegion()
End Sub就上面这些,希望加上点注释。谢谢