RE: [V8i VBA] Creating Annotation Text in specific units regardless of design file units

Update:

Forget the second part of the question, I've got the text size working using the following code:

Dim oModelRef                                     As ModelReference

    Set oModelRef = ActiveModelReference

    If oModelRef.MasterUnit.Label = "m" Then
        dFontHeight = CDbl(LBox.List(C, 5)) / 1000
        dFontWidth = CDbl(LBox.List(C, 6)) / 1000
    ElseIf oModelRef.MasterUnit.Label = "mm" Then
        dFontHeight = CDbl(LBox.List(C, 5))
        dFontWidth = CDbl(LBox.List(C, 6))
    Else
        MsgBox "Incorrect Designfile Units!"
        Exit Function
    End If

As for the Annotation scale issue, I've been testing the following:

If ActiveSettings.AnnotationScaleEnabled = False Then ActiveSettings.AnnotationScaleEnabled = True'text creation function calls go in here

If ActiveSettings.AnnotationScaleEnabled = True Then ActiveSettings.AnnotationScaleEnabled = False

This appears to work though enabling an active setting seems a crude option even though its been enabled/disabled programmatically. I'd still like to find out how the property handler is used to create annotation text.