помогите переделать

Private Sub cmdОтобразить_Click()
Dim N As Integer
'Очистить элемент PictureBox
picОтображение.Cls
'Включить подчеркивание (для заголовка)
picОтображение.FontUnderline = True
'Напечатать заголовок
picОтображение.Print "Таблица квадратов"
picОтображение.FontUnderline = False
'Напечатать пустую строку
picОтображение.Print
For N = 1 To 10 'Начало цикла
'Для каждого значение N
'печатать в два столбика - число N
'и его квадрат
picОтображение.Print N, N ^ 2
Next N 'конец цикла
End Sub
---------------------------------
Private Sub cmdОчистить_Click()
'Очистить элемент PictureBox
picОтображение.Cls
End Sub
---------------------------------
Private Sub cmdПечать_Click()
Dim N As Integer
MsgBox "Проверьте, включен ли принтер!",
bExclamation, "Таблица квадратов"
With Printer
'Установить параметры печати для принтера
'Установить тип шрифта
.FontName = "Courier"
'Установка размера шрифта
.FontSize = 14
'Включить подчеркивание
.FontUnderline = True
'Печатать заголовок
Printer.Print "Таблица квадратов"
'Отключить подчеркивание
.FontUnderline = False
End With
'Печатать пустую строку
Printer.Print
For N = 1 To 10 'Начало цикла
'Для каждого значения N
'печатать в два столбика - число N
'и его квадрат
Printer.Print N, N ^ 2
Next N 'Конец цикла
'Отключить принтер
Printer.EndDoc
End Sub