(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