Private Sub Command1_Click()
    ' Load the picture into the ImageList.
    ImageList1.ListImages.Add , , LoadPicture(txtBmp.Text)

    ' Set the form's icon.
    Set Icon = ImageList1.ListImages(1).ExtractIcon

    ' Save the icon file.
    SavePicture ImageList1.ListImages(1).ExtractIcon, _
        txtIco.Text
End Sub