Dim bmp = New Bitmap(110, 110)
Dim gra As Graphics
gra = Graphics.FromImage(bmp)
PictureBox1.Image = bmp
Dim KTfa = New FontFamily("楷体")
Dim KT As Font = New Font(KTfa, 66)
...
For i = 1 To s.Length
gra.FillRectangle(Brushes.White, New Rectangle(0, 0, 110, 110))
hz = Mid(s, i, 1)
gra.DrawString(hz, KT, Brushes.Black, -22, 0)
MsgBox(hz)
Next
msgbox倒可以正常逐字弹出窗口。

顶

最后才再加上
picturebox1.image=bmp

最后加一句PictureBox1.Refresh()就好了。这东西你在Graphics绘制完之后得让控件手动刷新一下(因为操作graphics不会导致自动刷新)，才能把你的graphics同步到控件上。

PictureBox1.Image = bmp放到最后就行了