Dim msg As String Dim i As Integer msg = "VERTICAL" Label1.Alignment = vbCenter Label1.Caption = "" For i = 1 To Len(msg) - 1 Label1 = Label1 & Mid$(msg, i, 1) & vbCr Next Label1 = Label1 & Right$(msg, 1)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question