Глюк с SetParent

[Саша_ОР]

Дамы и господа, помогите пожалуйста с прозрачностью формы.
Значит так, я делаю форму полупрозрачной с помощью такого кода:

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal

hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal

dwFlags As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias

"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As

Long
Public Declare Function SetWindowLong Lib "user32" Alias

"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal

dwNewLong As Long) As Long

Public Function FormTransparent(NameForm As Form, ValueTransparent

As Byte)
Dim Msg As Long
Msg = GetWindowLong(NameForm.hwnd, -20) Or &H80000
SetWindowLong NameForm.hwnd, -20, Msg
SetLayeredWindowAttributes NameForm.hwnd, 0, ValueTransparent,

&H2
End Function

все нормально, но возникла у меня идея перенести это

полупрозрачное окно в другое с помощью SetParent, но возникают

глюки. Подскажите пожалуйста, как можно перенести

полупрозрачную форму в другую форму без глюков, может я избрал

не тот метод...

[Viper]

на неотформатированный код и смотреть то не хочется, не то что вникать

[Twister]

на неотформатированный код и смотреть то не хочется, не то что вникать

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

[Viper]

до вопроса я и не досмотрел.... по вышеизложенной причине

[Саша_ОР]

на неотформатированный код и смотреть то не хочется, не то что вникать

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

Извините за неотформатирванный код, недоглядел. Жаль, что это невозможно... Спасибо всем.