MÉTHODE FACILE POUR CREER UN TEXTE 3D

'Le code de la forme :
'Creer un pictureBox :picbox
'Creer un textbox txtmessage
Dim intCount As Integer

Private Sub Form_Activate()
txtMessage.SetFocus
End Sub

Private Sub txtMessage_Change()
' Effacer le picture box
picbox.Cls

For intCount = 1 To 250
    ' La couleur du picBox devient progressivement  jaune
    picbox.ForeColor = RGB(intCount + 1, intCount + 1, 0)
    'Creer l'effet 3D
   picbox.CurrentX = intCount
    
    picbox.CurrentY = intCount
    'Afficher le texte
    picbox.Print txtMessage.Text
Next intCount
End Sub

'Il faut que le picture box soit avec un AutoRedraw=true