Function IsLoadedR(ByVal MyRPTName As String) As Integer
' Returns True if the specified form is loaded.
    Dim I
    IsLoadedR = False
    For I = 0 To Reports.Count - 1
        If Reports(I).FormName = MyRPTName Then
            IsLoadedR = True
            Exit Function       ' Quit function once form has been found.
        End If
    Next
End Function