一个无边框的界面，在状态栏有显示，*而且要有标题？

Question

BorderStyle=0
Caption=""
ControlBox=False
Mdichild=False
ShowInTaskbar=True
以上是我用的一些属性。
只差在状态栏中显示标题了。（但标题是空白的，很不好看，有没有什么办法实现加上标题和图标？用API实现也行！）
注意：上面的属性我要保留！

Answer 1

可以留下标题栏，图标和 caption，在加载时再剪掉标题栏部分。'模块
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
'窗体
    '调用API函数,去除标题栏
    Dim CapHeight As Long, Area As Long
    CapHeight = GetSystemMetrics(33) + GetSystemMetrics(4)
    Area = CreateRectRgn(0, CapHeight, Me.Width, Me.Height)
    SetWindowRgn Me.hwnd, Area, True

Answer 2

差不多是这个效果吧！
只是，windowsState=3maximized时，会在屏幕上出现一条空出的部分！
有没有其它的方法。

Answer 3

我真的很困惑，你别把 Caption 属性设成 "" 不就行了？！？！？

Answer 4

你到底想要什么？
caption设置为空，又要有标题？
那只有自己画标题栏了，也很容易。

Answer 5

差不多是这个效果吧！
只是，windowsState=3maximized时，会在屏幕上出现一条空出的部分！
有没有其它的方法。
==================================================================
你把窗体的top位置调整一下不就行了。可以是负数的。

Answer 6

caption="你要显示的标题"Function ShowIcon(m_hwnd As Long)
'使任务栏显示图标
Dim lStyle As Long
lStyle = GetWindowLong(m_hwnd, GWL_STYLE) Or WS_SYSMENU 【Or WS_THICKFRAME】最好加上这个，否则窗体不能放大缩小了
SetWindowLong m_hwnd, GWL_STYLE, lStyle
End Function
Private Sub Form_Load()
ShowIcon Me.hwnd
End Sub