Dim clstbox As WinForm.CheckedListBox = e.Form.Controls("TablesCheckedListBox")
Dim lst As New List(Of String)
For Each t As Table In Tables
If t.TableType = TableTypeEnum.Normal AndAlso t.IsCopy = False Then
lst.Add(t.Name)
End If
Next
lst.Sort
For Each s As String In lst
clstbox.Items.Add(s)
Next
For Each t As Table In Tables
t.Visible = (e.Form.Controls("TablesCheckedListBox").Value.Contains(t.Name))
Next
e.Form.Controls("TablesCheckedListBox").Value = GetConfigValue("MainTN","")
TableCaptionVisible = True