椭圆形的窗体_visualbasic教程

PrivateDeclareFunctionCreateEllipticRgnLib”Gdi32″(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
PrivateDeclareFunctionSetWindowRgnLib”User32″(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong

PrivateSubForm_Load()
SetWindowRgnhWnd,CreateEllipticRgn(0,0,300,200),True
EndSub->