Imports DevExpress.XtraTreeList

Public Class frmInbox


    Private Sub frmInbox_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim oCommonCommands As New ClassCommonCommands(My.LogConfig)
        Dim oControlPatcher As New ClassControlPatcher(Of TreeList)(Me)
        oControlPatcher.ProcessContainer(AddressOf TreeListDefaults.DefaultTreeListSettings)


        Dim oSQL As String = "SELECT * FROM VWICM_DOC_METADATA_DE;"
        My.Channel.CreateDatabaseRequest("Doc Metadata", True)
        Dim oTable = My.Channel.ReturnDatatable(oSQL)
        My.Channel.CloseDatabaseRequest()

        GridControl1.DataSource = oTable.Table
    End Sub
End Class