求助，谢谢大神

'【Print 语句】 窗体或图片框打印文字
'
'使用语法: Print "ABC123"
'可以使用 .CurrentX 与 .CurrentY 定位开始打印的位置
'
'例1:添加 Command1 Command2 Command3 三个按钮控件
Option Explicit '强制变量必需声明
Dim i& '宣告i为长整型数值形态(Long)
Private Sub Command1_Click() '按钮点击事件
Me.Cls '清除画面
For i = 1 To 9 '开始值为 1 循环到 9 结束
Me.Print CStr(i) '使用Cstr函数将连续递增1的整数值i转换为字符型再在窗体上打印
Next i '与 For 对应的 结尾语句
End Sub
Private Sub Command2_Click() '按钮点击事件
'Me.Cls '清除画面
For i = 1 To 9 '开始值为 1 循环到 9 结束
'打印一个字节i,后面使用了分号目的是继续下一格不跳行(依数字顺序打印)
Me.Print CStr(i); '使用Cstr函数将连续递增1的整数值i转换为字符型再在窗体上打印
'Me.Print '跳一行,加上这行将与COMMAND1一样效果
Next i '与 For 对应的 结尾语句
End Sub
Private Sub Command3_Click()
Dim j&
For i = 1 To 9 '外部循环开始打印9排
Me.Print Tab(10 - i); '每排开始第一个字前面先空出 10- i 格,每循环一次,前面空格便少一格
For j = 1 To i * 2 - 1 '内部循环开始
If j <= i Then '如果j小於i
Me.Print Trim(CStr(j)); '打印一个字节j,分号是继续下一格不跳行(依数字顺序打印)
Else
Me.Print Trim(CStr(2 * i - j)); '打印一个字节,分号是继续下一格不跳行(依数字反顺序打印)
End If
Next j '内部循环节点
Me.Print '跳下一行
Next i '外部循环节点
End Sub