Public Overridable Sub LoadBaseProperties()
        Dim conn As SqlConnection
        conn = New SqlConnection(cs)
        conn.Open()
        Dim SQLString As String
        SQLString = _
        "select caption, font_name, font_italic,font_bold, font_size, width, height " + _
            "from base_elements where id_base_element='" + Me.iidd.ToString + "'"
        Dim cmd As SqlCommand
        cmd = New SqlCommand(SQLString, conn)
        Dim dr As SqlDataReader
        dr = cmd.ExecuteReader()
        If dr.Read Then
            If Not IsDBNull(dr("caption")) Then Me.Caption = dr("caption")

            If Not IsDBNull(dr("font_name")) Then Me.WBRParent.Font.Name = dr("font_name")

            If Not IsDBNull(dr("font_italic")) Then Me.WBRParent.Font.Italic = dr("font_italic")

            If Not IsDBNull(dr("font_bold")) Then Me.WBRParent.Font.Bold = dr("font_bold")

            If Not IsDBNull(dr("font_size")) Then Me.WBRParent.Font.Size = New FontUnit(dr("font_size"), UnitType.Point)

            Me.WBRParent.Width = WidthInitial
            If Not IsDBNull(dr("width")) Then Me.WBRParent.Width = New Unit(dr("width"), UnitType.Mm)

            Me.WBRParent.Height = HeightInitial
            If Not IsDBNull(dr("height")) Then Me.WBRParent.Height = New Unit(dr("height"), UnitType.Mm)
        End If
        conn.Close()
    End Sub