It's probably not in Icon format, however, you can use a conversion process to convert it.

Make a Form with a PictureBox, ImageList and a CommandButton

Code:
Private Sub Command1_Click()

    ImageList1.ListImages.Add 1, "Icon", Picture1.Picture
    Set Form1.Icon = ImageList1.ListImages.Item(1).ExtractIcon

End Sub