Private m_lblPos as byte
Public Property lblPos as byte()
    Get
        return m_lblPos
    End Get
    Set(Value as byte)
        if m_lblPos = Value then return
 
        m_lblpos = Value
        if m_lblPos = 1 then
            ' zeige das label links an
        elseif m_lblPos = 2 then
            ' zeige das label rechts an
        elseif m_lblPos = 3 then
            ' unten
        elseif m_lblPos = 4 then
            ' oben
        else
            me.Controls.Remove(label)
        end if
    End Set
End Property