Dim crgn As Long
Dim ret As Long
crgn = CreateEllipticRgn(5, 5, Command1.Width - 5, Command1.Height - 5)
ret = SetWindowRgn(Command1.hwnd, crgn, True)
这个怎么不行？设置圆形的区域跑哪里去了？

谢谢，但好像还有点问题，我自己想想，不行的话再问你，呵呵