Private Sub ExtractIconComposite(inPic As PictureBox) On Error Resume Next Dim ipic As IPicture Dim icoinfo As ICONINFO Dim pDesc As pictDesc Dim hDCWork Dim hBMOldWork Dim hNewBM Dim hBMOldMono GetIconInfo inPic.Picture, icoinfo hDCWork = CreateCompatibl