Parsi Coders

س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!خسته نباشید !!!!!!!!!!!!!!!!

با کدهای زیر می توانید یک نوشته سه بعدی (3D) درست کنید.

یک PictureBox و یک TextBox درست کنید و کدهای زیر را در قسمت General وارد کنید.

کد:
Option Explicit

'By TheWolf

'Www.parsicoders.com

Private Sub Form_Load()

    With Picture1

    .BackColor = &H8000000D

    .AutoRedraw = True

    .Height = "1605"

    .Width = "7400"

    .FontSize = "48"

    End With

End Sub

Private Sub Text1_Change()

Dim intCount As Integer

Picture1.Cls

For intCount = 1 To 250

    Picture1.ForeColor = RGB(intCount + 1, intCount + 1, 0)

    Picture1.CurrentX = intCount

    Picture1.CurrentY = intCount

    Picture1.Print Text1.Text

Next intCount

End Sub

سوالی نیست؟

Thewolf