[Admiral]

У меня стоит Aero. »

Разработчики вдоль и поперёк написали все функции в своей оболочке. По этому добились таких результатов. Любое окно запущенное под данной оболочкой ищет системные библиотеки, а они уже переписаны и выходит они строятся по новым правилам.
За прозрачность отвечает Me.Opacity, значения от 0 до 1.

для Me.Opacity = 0.25 окно будет выглядит так

[Uzvern]

Вот пример : http://www.gotdotnet.ru/Forums/Windows/581428.aspx
А тут их куча, только с переводом траблы : http://weblogs.asp.net/kennykerr/arc...w-Manager.aspx

+ немогу добавить объект на прозрачную область. Нет, он добавляется, но некорректно.

[Admiral]

Uzvern, класные ссылки и примеры.
Возможно глюки GDI+. Тут уже ничего не сделаешь, разве что свою реализацию писать.

[Uzvern]

Admiral, ни одного слова не понял, но спасибо.

[Admiral]

Uzvern, в приведённой статье сказано

Therefore, if you are serious about transparency and translucency on Windows you need to use GDI+ (or some other graphics library). Before we look at GDI+ however, let us see what can be done with good old GDI. >>

то есть рассмотрен ранее вопрос с применением GDI+ или другой (в том числе и самостоятельной написанной). Так же указанно, что можно организовать и с помощью "старой доброй GDI".
Без кода по вопросу

+ немогу добавить объект на прозрачную область. Нет, он добавляется, но некорректно. »

можно говорить только в общих чертах, ведь даже не указанна с помощью какой технологии (GDI, GDI+, etc) отрисована форма c объектом. Я высказал своё предположение, на случай если это GDI+, так как даже в базовых примерах бывают глюки отображения.

[Codru]

Помогите запустить следующую программу, находясь в документе Word. Заранее благодарю.

Код:

Option Explicit 
Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long 
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long 
Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long 
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long 
Private Sub Form_Load() 
	Const TEXT = "Привет, я текст!" 
	Dim hRgn As Long 
	Font.Name = "Times New Roman" 
	Font.Bold = True 
	Font.Size = 70 
	Width = TextWidth(TEXT) 
	Height = TextHeight(TEXT) 
	BeginPath hdc 
	Print TEXT 
	EndPath hdc 
	hRgn = PathToRegion(hdc) 
	SetWindowRgn hWnd, hRgn, False 
	Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2 
End Sub

[Delirium]

Во первых, нет описания функций TextWidth, TextHeight. Во вторых, не совсем понятен смысл данного кода.

[Codru]

Delirium Нашел эту процедуру в И-нете "Вывод на экран текста, форма приобретает вид текста". Пытался ее вставлять в форму, но ее делит на процедуру (макрос), первую часть до "Private Sub..." отделяет. Не знаю как обьединить. Хотя и не уверен, но думаю, что фнкции TextWidth, TextHeight смогу расписать. Программированием уже лет 12-ть не занимался, хотя в VBA совсем иной принцип заложен.

[Delirium]

первую часть до "Private Sub..." отделяет »

Так и должно быть, в VBA option explicit означает определение глобальных переменных.

Private Sub Form_Load() »

Процедура вызывалась в Visual Basic (не VBA), и срабатывала при загрузке формы. В Word ее запустить не удастся.

[Codru]

Delirium , и что делать, ни как нельзя приспособить? вроде бы программа была расписана для VBA. Уж больно идея понравилась.
Идея в том, что хочу разместить рисунок и рядом с ним текст, который изменялся бы при выделении разных областей рисунка. Все это хочеться разместить просто на листе, либо на форме развернутой во весь экран.