VB1010实例（4）圆形窗体

前台

代码

Imports System.Runtime.InteropServices
'我的操作系统是win7,64位，long类型是64位
'需要设置为：编译--高级编译--目标CPU--x64
'单击变椭圆，双击还原
Public Class Form1
    <DllImport("gdi32.dll", EntryPoint:="CreateEllipticRgn", CallingConvention:=CallingConvention.Cdecl, ExactSpelling:=True)> _
    Public Shared Function CreateEllipticRgn(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
    End Function

    <DllImport("gdi32.dll", EntryPoint:="CreateRectRgn", CallingConvention:=CallingConvention.Cdecl, ExactSpelling:=True)> _
    Private Shared Function CreateRectRgn(ByVal nLeftRect As Long, ByVal nTopRect As Long, ByVal nRightRect As Long, ByVal nBottomRect As Long) As IntPtr
    En