I'm trying to use the ExtractIcon API function. Once I get the return
value how do I use it. Since it returns HICON I want to assign it to my
main form.

Private Sub Command1_Click()
 Dim rc As Long

 CommonDialog1.ShowOpen

 rc = ExtractIcon(Form1.hwnd, CommonDialog1.filename, 0)

End Sub

What do I need to add?

Thanks in advance.

Mauro Patino

You can:

* Send a WM_SETICON message to your Form

or

* Create a StdPicture object from the icon handle, and then Set
Form.Icon = TheNewPictureObject. See the Tips section at
http://www.vbaccelerator.com for sample code.

Mattias

__________________________________________________

     VB+ http://hem.spray.se/mattias.sjogren/
 Please send questions/replies to the newsgroups