>518
Windowsの設定を変更する

>519
フォント名が@付のフォント("@MS P ゴシック"みたいなの)でOrientationを
2700(270.0deg)としてCreateFont(Indirect)し、戻値(Handle)を
Canvas.Font.Handleに代入する。あとはCanvas.TextOutするだけ。