关于窗口皮肤的问题

Question

Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
我调用以上API 并将FORM的.Appearance 属性设置为0-flat可以实现窗口特效。但是当添加菜单后，FORM的APPEARANCE自动设置为1-3D。就出现二个标题栏。请问如何解决这个问题。

Answer 1

sorry不是appearance属性,应该是BORDERSTYLE属性影响窗口风格

Answer 2

是这样的，如果你给他添加菜单，就自动改为3D了
我想你的程序应该不只一个窗体，那么可以在别的窗体上添加菜单，并设置visible为false 
在你的这个窗体里面引用，就可以了