本人新手,求高手解答一下~
1.如何改变页框(红框之外)的颜色〜或是变成平面〜或是隐藏〜不是Form1.BorderStyle=0那种〜

2.有人能解释一下这两种Form之间的关系吗?或是提供这方面的资讯也可以〜

Private Function ShowTitleBar() Dim lStyle As Long Dim tR As RECT GetWindowRect Me.hwnd, tR lStyle = GetWindowLong(Me.hwnd, GWL_STYLE) Me.Tag = Me.Caption Me.Caption = "" lStyle = lStyle And Not WS_SYSMENU lStyle = lStyle And Not WS_MAXIMIZEBOX lStyle = lStyle And Not WS_MINIMIZEBOX lStyle = lStyle And Not WS_CAPTION SetWindowLong Me.hwnd, GWL_STYLE, lStyle SetWindowPos Me.hwnd, 0, tR.Left, tR.Top, tR.Right - tR.Left, tR.Bottom - tR.Top, SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED Me.Refresh End Function Private Sub Command1_Click() ShowTitleBar End Sub