(VB6) 폼에 3D 그라데이션 글자 출력하기

새 프로젝트에서

폼에 버튼을 만든다. 버튼을 더블클릭하여 코드 편집창을 띄운다.

아래 코드를 입력 후 실행하고 버튼을 누르면 된다.

Private Sub Command1_Click()
Dim i As Integer

For i = 1 To 255

    Form1.ScaleMode = 3

    Form1.Font.Name = "Times New Roman"

    Form1.Font.Size = 48

    Form1.CurrentX = i / 50

    Form1.CurrentY = i / 50

    Form1.ForeColor = RGB(i + 5, 0, 0)

    Form1.Print "한글"

Next
End Sub