其实，计算一屏总行数，经反复实验，我有一个不太精确的解决方案：

*获取当前字体的行高
lnFontHeight = FONTMETRIC(1, thisform.RichTexBox1.Font.Name, thisform.RichTexBox1.Font.Size)

*计算每屏行数
lnLinesPerPage = INT(thisform.RichTexBox1.Height / lnFontHeight / 1.35)

至于那个神秘参数1.35，大致相当于行间距，是我随意设置的——有时候准，有时候不准，计算误差大约在0--2行之间。
不知诸位英雄，有没有更精确的解决方案？

GDI绘制文本有设置行间距和字间距的相关函数
思路：
1..获取字串高+行间距，确定行数。
2..获取字串宽，确定一行字数。
行间距可以试试FONTMETRIC(5,.....)+n，n(1,2,.....)试试。
字串宽就有点麻烦，可尝试调用API函数GetTextExtentPoint32W()最后一个参数（SIZE结构）是返回字串输出的x,y座标，x就是字串的宽，y是字高。