Иконка

[Cytron]

Вопрос такой не раз уже поднимался искал очень по многим комбинациям но именно то что мне нужно я не нашел.
Нужно в заголовке окна использовать иконку 32x32 с альфа-каналом итд...
Помогите плиз...
PS. где то я видел пример на PSC... Но не нашел даже там. Везде примеры по редактированию иконок или вырисовка их в picturebox....

[Naked]

засунь иконку в ресурсы и

Dim hIcon As Long

Private Sub Form_Load()
hIcon = LoadIcon(App.hInstance, 106)
Call SendMessage(hWnd, WM_SETICON, 1, ByVal hIcon)
End Sub

[Cytron]

Вот блин, а всё оказалось так легко... Спасибо Naked!