在VB.Net中使用椭圆形按钮

   一、在“Windows窗体设计器生成的代码”下面，添加以下两个函数声明

   Declare Function CreateEllipticRgn Lib "gdi32" alias "CreateEllipticRgn"(ByVal X1 as Integer, ByVal Y1 as Integer,ByVal X2 as Integer,ByVal Y2 as Integer) as Integer

  

   Declare Function SetWindowsRgn Lib "user32" alias "SetWindowRgn"(ByVal hWnd as Integer, ByVal hRgn as Integer,ByVal bRedraw as Boolean) as Integer

   二、在Form_Load或其他适当地方添加以下代码

  

   Dim HRGN as Integer=CreateEllipticRgn(X1,Y1,X2,Y2)

   SetWindowRgn(Button1.Handle.ToInt32,HRGN,True)

   其中X1、X2为椭圆形的左边和右边距控件左边缘的距离，而Y1、Y2是椭圆上边和下边距控件上边缘的距离。

   

   需要注意的是，上述函数声明与VB的API中的声明是不一样的，所有原来的Long型都必须改为Integer，否则函数不起作用。