Прозрачная форма

[arechemist]

Как сделать форму прозрачной, так, чтобы картинка, которая была на ней стала тоже прозрачное.
Ну вобщем я хочу сделать прогу типо помошника в ворде, такого же прозрачного мультяшку, но не знаю как сделать его прозрачным...
Помогите пожалуйста...

[GSerg]

Кончай страдать фигнёй...
Читай лучше доки по MSAgent и юзай его.

[mark+]

зайди на www.scanner.narod.ru

[kazah_]

Тут вот что.. где на сайте валяется иходник, но толи фигово он сделан, то ли толку от него мало...

Проблема в том, что мало сделать прозрачной форму, надо что бы ещё и элементы бдыли попрозрачнее, а иначе полная хрень получается...

[arechemist]

kazah_, Эелемент-то я знаю как зделать прозрачным, а вот форму... Вот форму сделать прозрачной проблема.

[arechemist]

mark+, твоя ссылка с ошибкой!

[arechemist]

GSerg, а где именно можно найти доки по агенту?

[Awe]

Примеры по MS Agent можешь найти на http://hiprog.com/,
на http://rusproject.narod.ru/, а также на http://www.vbnet.ru

[mark+]

Да я все линки в памяти держу.
Тогда на www.vbscanner.narod.ru

[kazah_]

kazah_, Эелемент-то я знаю как зделать прозрачным, а вот форму... Вот форму сделать прозрачной проблема.

держи млин!

'Добавить в модуль:

Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWME = SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_NOTOPMOST = -2

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

'Добавить в форму:

Private Sub Command1_Click()
SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME
End Sub