Private Sub MDIParent1_MdiChildActivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MdiChildActivate
If Me.ActiveMdiChild Is Nothing Then
Me.Text = "MDIParent1"
Else
Me.Text = Me.ActivateMdiChild.text & "------MDIParent1"
End If
End Sub
If Me.ActiveMdiChild Is Nothing Then
Me.Text = "MDIParent1"
Else
Me.Text = Me.ActivateMdiChild.text & "------MDIParent1"
End If
End Sub