[Thewolf]

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

با کدهای زیر می توانید یک نوشته سه بعدی (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

سوالی نیست؟