Rückgabewert: Klasse cProgress


Public Function FF_CreateProgress() As Object
    Select Case m_oApplication.FlowFact_InitType
        Case INITTYPE_APPLICATION
            Set FF_CreateProgress = CreateObject("clacastdc10.cProgress")
        Case INITTYPE_CONNECTOR
            Set FF_CreateProgress = m_oApplication.FlowFact_Connector.Progress()
        Case Else
            RaiseError_NotInit
    End Select
End Function