Dim doc As New FileInfo(Me.grd_verp.CurrentRow.Cells("File").Value)
 
                If doc.Exists = True Then
 
                    frm_fehlermerkmal.WindowState = FormWindowState.Maximized
                    frm_fehlermerkmal.tmr_browser.Interval = _
                      Fehlermerkmal_interval
                    frm_fehlermerkmal.Text = "Verpackungsdatenblatt für" & _
                    "Artikel: " & Me.grd_verp.CurrentRow.Cells("Artikel").Value
                    frm_fehlermerkmal.PDF_Browser.setShowToolbar(False)
                    frm_fehlermerkmal.PDF_Browser.setShowScrollbars(False)
                    frm_fehlermerkmal.PDF_Browser.setZoom(QW_PDF_ZOOM)
                    frm_fehlermerkmal.PDF_Browser.LoadFile(doc.FullName)
                    frm_fehlermerkmal.PDF_Browser.gotoFirstPage()
                    'frm_fehlermerkmal.PDF_Browser.setPageMode("Page")
                    'frm_fehlermerkmal.PDF_Browser.setView("Page")
                    write_log("Verpackungsdatenblatt ' " & _
                      Me.grd_verp.CurrentRow.Cells("Artikel").Value & "'" & _
                      "angesehen!")
 
                    Application.DoEvents()
                    frm_fehlermerkmal.ShowDialog()
                    frm_fehlermerkmal.PDF_Browser.Dispose()
                    frm_fehlermerkmal.Dispose()
                    Me.Close()
                End If