MS IDB und WINDREAM

Global_Indexer/frmHotKey_Add.vb

@@ -7,10 +7,11 @@
             ' Combobox leeren
             Me.cmbObjekttyp.Items.Clear()
             ' alle Objekttypen durchlaufen
-            For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects
+            For Each otype As String In WINDREAM.ObjectTypes
                 ' und in die Combobox eintragen
-                Me.cmbObjekttyp.Items.Add(oDokumentTyp.aName)
+                Me.cmbObjekttyp.Items.Add(otype)
             Next
+
         Catch ex As Exception
             MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
         End Try
@@ -40,13 +41,11 @@
         GroupBox1.Visible = True
         GroupBox2_Controls.Visible = False
         GroupBoxMainWindow.Visible = False
-        If ClassWindream.Init() = True Then
+        If IDB_ACTIVE = False Then
             ObjektTypenEintragen()
-        Else
-            MsgBox("Windream konnte nicht initiiert werden! Formular wird geschlossen - Check logfile", MsgBoxStyle.Information)
-            Me.Close()
         End If
 
+
     End Sub
     Sub load_users()
         Try