Assuming you only want a single instance of a form type, I'd suggest you add a Dictionary(Of Type, Form). ShowOrActiveForm would have a single parameter of Type and would be a subroutine.
The Form object could be found based on a ContainsKey. The rest of the ShowOrActiveForm function would be the same.
