注释: Return a form by name if it is loaded. Private Function FindForm(ByVal form_name As String) As Form Dim i As Integer
注释: Assume we will not find it. Set FindForm = Nothing
注释: Search the loaded forms. For i = 0 To Forms.Count - 1 If Forms(i).Name = form_name Then 注释: We found it. Return this form. Set FindForm = Forms(i) Exit For End If Next i End Function