Using AlphaImgCtrl to try to do a quick and dirty icon save with transparency.

I have a bitmap loaded in a VB picturebox and the mask color I'm using is vbCyan. It seems like I should be able to call some function and pass it the mask color and then save as icon with tranparency but I can't find it.

Can anyone fill in the code below?

Code:
    If .Picture Then
        Set objGDIpImage = LoadPictureGDIplus(.Picture.Handle)

        If Not (objGDIpImage Is Nothing) Then
            With frm_test.AlphaImgPic
                .Picture = objGDIpImage
        
                '************************************************
                ' What goes here to save icon with transparency?
                '************************************************
                
                SavePictureGDIplus .Picture, sFileIco, lvicSaveAs_HICON
            End With
        End If
    End If