jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 2 févr. 2006 à 19:49
Bonsoir,
Voici une méthode
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim s As String
Dim i
a = "Bonjour"
For i = 1 To Len(a)
b = Mid$(a, i, 1) & vbCrLf
s = s & b
Next
Label1.AutoSize = True
Label1 = s
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.