Hi,

  This piece code might Keep you busy for some time,


Dim temp As Form
Set temp = MDIForm1.ActiveForm
If temp Is Nothing Then
    MsgBox "Nothing is selected"
Else
    MsgBox "You got it"
    MDIForm1.ActiveForm.Hide
End If




=====
Sincerely,
Ramesh S

***********************************************************
*    Do we have atleast handful of inventions which we    *
*          didn't used (so far) for destruction?          * ***********************************************************

__________________________________________________
Do You Yahoo!?
Yahoo! Greetings - send holiday greetings for Easter, Passover
http://greetings.yahoo.com/