程序代码:
Private Sub Command1_Click()
Picture1.Cls
Picture1.FontSize = 128
VKF Picture1, "中国人民大学"
Picture1.Print
VKF Picture1, "中国人民大学"
End Sub
Public Sub VKF(Pobj As PictureBox, S As String)
Dim oX As Integer, oY As Integer
Dim nX As Integer, nY As Integer
Dim QC As Long, BC As Long
Dim s1 As String, i As Long
For i = 1 To Len(S)
oX = Pobj.CurrentX
oY = Pobj.CurrentY
QC = Pobj.ForeColor
BC = Pobj.BackColor
Pobj.FontBold = True
Pobj.Print Mid(S, i, 1);
nX = Pobj.CurrentX
nY = Pobj.CurrentY
Pobj.CurrentX = oX
Pobj.CurrentY = oY
Pobj.ForeColor = BC
Pobj.FontBold = False
Pobj.Print Mid(S, i, 1)
Pobj.CurrentX = nX
Pobj.CurrentY = nY
Pobj.ForeColor = QC
Next i
End Sub