![]() |
FlowFact - Entwicklungstools |
![]() |
Sub | FlowFact_InitApplication() |
Public Sub FlowFact_InitApplication() Dim oFF As Object On Error Resume Next Set oFF = GetObject("", "FlowFact.Application") If Err <> 0 Or (oFF Is Nothing) = True Then MsgBox "FlowFact.Application-Objekt konnte nicht erstellt werden." Exit Sub End If On Error GoTo 0 FlowFact_SetApplication oFF End Sub |