sub GetTextSize(txt$, byref w, byref h)

Gets the size of the text if rendered with the current font