هل من الممكن جعل اداة الليبل تظهر بشكل رأسي

Private Sub Form_Load()

Dim s As String

For i = 1 To Len(Label1)

s = s & Mid$(Label1, i, 1) & vbCrLf

Next

Label1 = s

End Sub

قد يفي الكود السابق بالغرض ............ ولكن ؟؟؟؟؟؟؟

انا زعلان عليك مررررررررررررررة يا oaob

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

:'( :'( :'( :'( :'(