I am trying to get the fontName and FontSize for Stephen Lebans
RotateLabelVer2.OCX control

dim J as integer
' CtlSpace is the ActiveX control
For j = 0 To CtlSpace.Properties.Count - 10
On Error Resume Next
Debug.Print Debug.Print j & " " & CtlSpace.Properties(j).Name & " " &
CtlSpace.Properties(j) Next j

lists 61 properties, but nothing about font information.
Double Clicking on the control in design view allows forecolours,
backcolours, fontName and FontSize, bold italic, etc. to be set, but I can't
find a way of reading these properties. Can anyone help?
Thanks
Phil

On 05/03/2011 19:23:13, "Phil" wrote:
OK.Solved it
Uses CtlSpace.Font for name
Uses CtlSpace.Font.Size for size etc.
Phil