谢谢有点甜！但不太明白在哪个位置引用。下面红色位置关闭时会出错。麻烦在上传的那个案例上改下，可以吗？
Public Mtb As String
'--------双击页签关闭窗口---------------------------------------------------
Public Sub FormTab_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If sender.SelectedTab.Text = "主窗口" Then Return
Dim TabRect As Rectangle = sender.SelectedTab.TabBounds
If e.Button = System.Windows.Forms.MouseButtons.Left And TabRect.Contains(e.Location) Then
Forms(sender.SelectedTab.Text).Close '关闭窗口
Dim tab As object = Forms("主窗口").panel.parent.parent
Mtb = tab.SelectedTab.text
End If
End Sub
'--------切换窗口页签后(记录当前活动窗口)--------------------------
Public Sub FormTab_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Mtb = sender.SelectedTab.Text '记录当前活动窗口
End Sub
加好友 
发短信
Post By：2014/9/11 15:30:00 [只看该作者]
此主题相关图片如下：a1.gif
此主题相关图片如下：360截图20140911163522079.jpg