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.
Form object could be found based on a
ContainsKey. The rest of the
ShowOrActiveForm function would be the same.