Изменение размера шрифта

[Fox_Malder]

Подскажите код для того, чтобы для приведенного ниже кода установить изменение размера шрифта по строкам? (во фрагменте две строки выводятся в два столбца, но только с изменением цвета).

Код: Выделить всё

Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long,

ByVal crColor As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal

hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As

String, ByVal nCount As Long) As Long

Private Sub Command1_Click()

Dim i As Integer
Dim strString As String
strString1 = "Добрый день!"
strString2 = "Добрый вечер!"

For i = 0 To 5
    Form1.Font = "Courier New"
     Call SetTextColor(hdc, RGB(i * 100, i * 13, i * 255))
     Call TextOut(hdc, 5, i * 15, strString1, Len(strString1))
     Call TextOut(hdc, 105, i * 15, strString2, Len(strString2))
Next i

End Sub

[GSerg]

Откуда переапизм?

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
  Dim i As Long
 
  Me.Font = "Courier New"
 
  For i = 0 To 5
    Me.Font.Size = Me.Font.Size * 1.1
    Me.ForeColor = RGB(i * 100, i * 13, i * 255)
    Me.Print "Добрый день!", "Добрый вечер!"
  Next
End Sub