Public Property Get ForeColor() as OLE_COLOR
      ForeColor = Label1.ForeColor
End Property
 
Public Property Let ForeColor(ByVal NeuerWert as OLE_COLOR)
     Label1.ForeColor = NeuerWert
End Property

Public Property Get Font() as IFontDisp
    Font = Label1.Font
End Property
 
Public Property Let Font(ByVal NeuerWert as IFontDisp)
    Label1.Font = NeuerWert
End Property