Posted on January 5, 2009
1
2
3
4
5
6
7
8
9
10
11
12
| 'Graphics - How to Export BMP file to Icon file
Option Explicit
'Add a ImageList Control to your form
Private Sub Form_Load()
'Add BMP file to ImageList control
ImageList1.ListImages.Add , , LoadPicture("C:\Temp\Test.bmp")
'Export the BMP to Icon
SavePicture ImageList1.ListImages(1).ExtractIcon, "C:\Temp\Test.ico"
End Sub |