最简单的办法，就是给你的表标题配合表图标，看看这一节后面的自定义图标：

http://www.foxtable.com/help/topics/0011.htm

这个不能实现双击关闭，还有标签页的关闭图标。

怎么让并列窗口标题向上显示？用了很多时间和精力暂时用TabControl控件实现了，还有一点小问题。

单击打开采购按钮代码

Dim tabc As WinForm.TabControl
tabc= e.Form.Controls("TabControl1")
    For a As Integer = 0 To tabc.TabPages.Count-1
            If tabc.TabPages(a).text = "采购" Then
                tabc.SelectedIndex = a
                Return
            End If
        Next
    tabc.TabPages.Add("采购","采购")
   tabc.SelectedIndex=tabc.TabPages.Count-1
    tabc.SelectedPage.Image=GetImage(ProjectPath & "002.ico")
If Forms("采购").Opened=False Then
 Forms("采购").open
End If

双击TabControl1代码

Dim tabc As WinForm.TabControl
tabc=e.Form.Controls("TabControl1")
Dim str As String
str=tabc.SelectedPage.Text

If tabc.SelectedIndex<>0 Then
    tabc.TabPages.Delete(str)
    If Forms(str).Opened=True
       Forms(str).Close
    End If    
End If

图中的按钮是怎么做的

怎么不是灰色系，而是有点水晶蓝的

非常感谢飞的例程！