我想做一个平滑的进度条，但我怎么也实现不了在其中显示的文字（如78%）能够一半白色而另一半蓝色，而且是在每个字在都要实现这种效果，怎么办，我用的是textout的API函数

Question

不必用 API 函数。Option ExplicitPrivate Sub Form_Load()
Me.AutoRedraw = True
Me.FontSize = 20
Me.CurrentX = Me.Width \ 2 - Me.TextWidth("袁飞")
Me.CurrentY = Me.Height \ 2
Me.Print "袁飞你好！"Me.DrawMode = 2
Me.Line (0, 0)-(Me.Width \ 2, Me.Height), , BF
End Sub

Answer 1

Option ExplicitPrivate Sub Form_Load()
Me.AutoRedraw = True
Me.ForeColor = vbBlue
Me.BackColor = vbWhite
Me.FontSize = 20
Me.CurrentX = Me.Width \ 2 - Me.TextWidth("袁飞")
Me.CurrentY = Me.Height \ 2
Me.Print "袁飞你好！"Me.DrawMode = 10
Me.Line (0, 0)-(Me.Width \ 2, Me.Height), , BF
End Sub