The basis of this control is to act as a caption.
At the moment you can't apply any of the Font, ForeColor or BackColor properties. We will
now add code to the Let procedures to make them change the label. Here are the new
property procedures:

Public Property Get Font() As Font
Set Font = lblCaption.Font
End Property
Public Property Get ForeColor() As OLE_COLOR
ForeColor = lblCaption.BackColor
End Property
Public Property Get BackColor() As OLE_COLOR
BackColor = lblCaption.BackColor
End Property

Add a Standard EXE project and draw our control
onto the form. Change the properties and watch the label change at the same time. But we
are missing one thing. The ability to change the caption. Paste these two procedures in: