Declare an .ico file

[eoredson]

@Petr:

Nice code but too complex and beyond the scope of what I am doing.

I am going with the following:

Code: (Select All)

i& = _LoadImage("SIC64.BMP", 32)
If i& < -1 Then
    _Icon i&
    _FreeImage i&
End If
Do
    If Len(InKey$) Then End
Loop