Set drawing units and annotation fonts-dimensions values with API?

How to set drawing units and annotation fonts-dimensionsvalueswith API?
Need VB code.SolidworksApi macros