Public Class frmFileInWork
    Public Property myDocuments As New List(Of ClassDocGrid.clsWMDoc)
    Private Sub btnInWork_Click(sender As Object, e As EventArgs) Handles btnInWork.Click
        Try
            For Each oDoc As ClassDocGrid.clsWMDoc In myDocuments
                ClassFileResult.DocID = oDoc.DocId
                If ClassFileResult.Set_InWork(1, txtComment.Text) = True Then
                    Dim expression As String
                    expression = "DocID = " & ClassFileResult.DocID
                    Dim foundRowsLevel0() As DataRow
                    ' Use the Select method to find all rows matching the filter.
                    foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
                    Try
                        foundRowsLevel0(0)(13) = True
                    Catch ex As Exception

                    End Try


                Else
                    MsgBox("Unexpected Error 1 in Setting to work - Check logfile", MsgBoxStyle.Exclamation)
                End If
            Next
            Me.Close()
        Catch ex As Exception
            MsgBox("Unexpected Error 2 in Setting to work - Check logfile", MsgBoxStyle.Exclamation)
        End Try
    End Sub

    Private Sub frmFileInWork_Load(sender As Object, e As EventArgs) Handles Me.Load
        txtComment.Text = String.Empty
    End Sub
End Class