Поворот строк в VB6

Всем, привет!

Может быть кто знает как развернуть строку в Vb на 90, 270 градусов, так чтоба надпись выводилась на экран перпендикулярно горизонтали.

И возможно ли это в принципе.

Спасибо за помощь.

Gorik

[Madness]

Ниже приведена процедура для делфи, используются только winapi функции, так что проблем переделать возникнуть не должно.

Написание текста под углом

Эта процедура устанавливает угол вывода текста для указанного Canvas, угол в градусах. Шрифт должен быть TrueType !

procedure CanvasSetTextAngle(c: TCanvas; d: single);
var LogRec: TLOGFONT; { Информация о шрифте }
begin
{Читаем текущюю инф. о шрифте }
GetObject(c.Font.Handle,SizeOf(LogRec) ,Addr(LogRec) );
{ Изменяем угол }
LogRec.lfEscapement := round(d*10);
{ Устанавливаем новые параметры }
c.Font.Handle := CreateFontIndirect(LogRec);
end;

:idea:

Thanks!

Все получилось!

Gorik.