Экспортировать BMP-файл в иконку.
Добавьте контрол ImageList на форму.

Private Sub Form_Load()
'Замените путь и имя открытия файла "d:\myDir\File.bmp" на то, что нужно вам
ImageList1.ListImages.Add , , LoadPicture("d:\myDir\File.bmp")
'Сохраняя иконку, выберите путь и имя "d:\myDir2\File2.ico" на то, что нужно вам
SavePicture ImageList1.ListImages(1).ExtractIcon, "d:\myDir2\File2.ico"
End Sub