文字列を縦書きで書きたい (ID:125121)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 今までは文字列を例えばPicture1に縦書きする時は Dim L Dim P Dim N Dim Doc Dim X,Y Dim C X=100:Y=100 Doc="あいうえお" L=Len(Doc) Picture1.CurrentY = Y For N = 1 to L C = Mid(Doc, N, 1) W = Picture1.Textwidth(C) Picture1.CurrentX= X - W Picture1.Print C Next N などと書いていましたが文字列を例えばPicture1に縦書きに表示する良い方法があったら教えてください。