Sub GetTextSize(txt$, ByRef w, ByRef h)

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