Code Below
Thanks Joe
******************
Public Function CheckActiveMidChild(ByVal myForm As Form) As Boolean
Dim objMdiChild As Form = PMC_form.ActiveMdiChild
Dim Bit As Boolean = False For Each objMdiChild In PMC_form.MdiChildren If objMdiChild.Name.ToString.Equals(frmFormName.Name) Then
Bit =
True Exit For End If Next myForm.Close() Return Bit End Function
Close Mdi Child
www.GaaLive.com
In any case, a form will not close if any of its controls do not validate. Perhaps this is the problem