jj 08.03.2016 add showColumn & columnTitle for listbox

app/DD-Record-Organiser/ClassConverter.vb

@@ -4,10 +4,16 @@
 
     Public Shared Function ToBooleanOrDefault(value As Object, Optional defaultValue As Boolean = False)
         Try
-            If IsDBNull(value) OrElse value = "" Then
-                Return defaultValue
+            Dim bool As Boolean
+
+            If Boolean.TryParse(value, bool) = True Then
+                Return bool
             Else
-                Return Convert.ToBoolean(value)
+                If IsDBNull(value) OrElse value = "" Then
+                    Return defaultValue
+                Else
+                    Return Convert.ToBoolean(value)
+                End If
             End If
         Catch ex As Exception
             Return defaultValue