求教，VB如何做圆形按钮？

[Liubin]

[Firing_Sky]

用两个图片做按钮

[newsoft]

方法：
1 用图形控件（如img,pic）,自己在事件中处理，一般采用三幅图，分别表示Normal,Mouse In以及Mouse Down；
2 用其它控件，如Sheriden_ActiveThreed_Plus3.0等，事件已帮你做好，只需加入图形即可，非常方便。

[929]

也可以用SETWINDOWRGN来设置按钮的REGION，设置成圆形就可以了。

[lp23]

在一个Form中定义两个按钮，cmd1和command2,书写以下代码：
Private Sub cmd1_Click()
MsgBox "ok"
End Sub
Private Sub Command2_Click()
Dim crgn As Long
Dim ret As Long
crgn = CreateEllipticRgn(5, 5, cmd1.Width - 5, cmd1.Height - 5)
ret = SetWindowRgn(cmd1.hwnd, crgn, True)
cmd1.Caption = "ok"
cmd1.Visible = True
End Sub
API函数:

Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

[King]

lp32说的对，要用WinAPI函数定义圆型的按扭。

[bjseaman]

我照着lp32说的做了，为什麽不行？
按下command2以后，cmd1就不见了