Public Class frmDesignerLayout
    Dim DT_Foms As DataTable
    Private Sub frmDesignerLayout_Load(sender As Object, e As EventArgs) Handles Me.Load
        Try
            Dim oSQL = "Select * from TBIDB_LAYOUT_CONFIG"
            DT_Foms = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
            If Not IsNothing(DT_Foms) Then
                For Each oRow As DataRow In DT_Foms.Rows
                    BarListItem1.Strings.Add(oRow.Item("TITLE"))
                Next
            End If
        Catch ex As Exception
            MsgBox("Unexpected Error in FormLoad:" & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub

    Private Sub BarListItem1_ListItemClick(sender As Object, e As DevExpress.XtraBars.ListItemClickEventArgs) Handles BarListItem1.ListItemClick
        Dim barlistItem = e.Item
        ' Dim oSelectedText = e.Item.str
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick

    End Sub
End Class