主题：[求助]唐尸三摆手的多窗口在狐表里是怎样实现的？

因为在写一个项目，要求实现MDI窗口或者多窗口显示方式，求教一下上面图所示，唐尸三摆手的多窗口实现方式？
此主题相关图片如下：mdi窗口现实方式.jpg

狐爸求救，想不出来怎样实现这个功能？

怎么让并列窗口标题向上显示？用了很多时间和精力暂时用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

非常感谢飞的例程！