neu

VERAG_PROG_ALLGEMEIN/frmScan.vb

@@ -43,6 +43,12 @@ Public Class frmScan
     Public DefaultFileName = ""
     'Dim DS As New cDATENSERVER
 
+    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
+        m_TwainManager.Dispose()
+        m_ImageCore.Dispose()
+        m_TwainManager = Nothing
+        m_ImageCore = Nothing
+    End Sub
 
     Sub New(ART)
 
@@ -536,10 +542,12 @@ Public Class frmScan
             MessageBox.Show(ex.Message)
         Finally
             m_ImageCore.Dispose() 'Speicherfreigabe
-
+            m_PDFCreator = Nothing 'Speicherfreigabe??
         End Try
     End Sub
 
+
+
     Private Function VerifyFileName(fileName As String) As Boolean
         Try
             If fileName.LastIndexOfAny(System.IO.Path.GetInvalidFileNameChars()) = -1 Then