прозрачность формы!

[noob4ever]

Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Form_Load()
Dim hwnd1 As Long
Form2.Show
hwnd1 = SetParent(Form1.hwnd, Form2.hwnd)
End Sub


Всё прекрасно, когда hWndChild не прозрачная!!! когда онапрозрачная она просто черная становится, и на ней ничего не видно!! помогите очень надо подчиненую форму прозрачную.!

[Хакер]

Насколько я знаю, Layered-окно должно быть Top-Level, если проблема в этом.

PS. Скажи по секрету, а откуда ты? (меня интересует страна)

[noob4ever]

так значит никак?
с россии )