Dim imgplace As Integer
    Public Enum ImgselE As Integer
        Left = 0
        Right = 1
        Both = 3
    End Enum
 
    Property ImagePlaced() As ImgselE
        Get
            Return imgplace
        End Get
        Set(ByVal Value As ImgselE)
            imgplace = Value
        End Set
    End Property

Gruss Caddy