Picture1.AutoRedraw = True
Picture1.Cls
For u = 0 To lrck
s = bstr(u)
Picture1.CurrentX = (Picture1.ScaleWidth + 2000 - Picture1.TextWidth(s)) / 2 - 1000
Picture1.CurrentY = Picture1.ScaleHeight - 400 - tolrc * 200 + u * 200
If u = tolrc Then Picture1.ForeColor = &HFF& Else Picture1.ForeColor = &HFFFF&
Picture1.Print s
Next
这是VB6下的
Picture后面加上box之后全部提示不是成员

只能理解后重写。不适合的内容很多，建议使用System.Drawing里面的函数实现。
--来自可以用水果刀发帖的 诺基亚 Lumia 625H