请帮忙把此函数补完，谢谢~ （没分了请多多见谅...）

Question

目的：实现loadfrm函数，其作用是在多文档程序中显示一个窗体(比如frmLog)。若已经有一个frmLog在打开中，直接显示之；若没有则创建。比如：第一次loadfrm frmLog，则实例化一个frmLog并显示；不关它再调用一次，则只显示之。
现有的函数如下，有一处不会写，请帮忙补完，谢谢~Public Sub loadfrm(frm As Form)
    Dim f As Form
    For Each f In Forms
        If f.Name = frm.Name Then
            f.SetFocus
            End Sub
        End If
    Next'若没有打开过，
    set frm=new frm    (错...)
    frm.show
End Sub

Answer 1

Public Sub loadfrm(frm As Form)
  frm.show
End Sub

Answer 2

frm.show  最简单不过了