Tool Window

How would I make a function to close JUST a tool window and not just end the whole program? I really am stumpted,
I have no idea what I would do to accomplish this. There is no already created function to do this.

FreeGadget windowgadget

THANK YOU! I'm a naive SOB, thank you.
Help MUCH appreciated,
Siopses

Select ActiveWindow()
    Case ToolWindow
         FreeGadget ToolWindow
    Case AnotherToolWindow
         FreeGadget AnotherToolWindow
    Default
         FreeGadget MainWindow
         End
End Select

Thanks for the help Andres, but I've already solved the problem.