Key
                     Next j
                  Next i
                  
               End If
            End If
         End If
         
      Else
          lR = -1
      End If
   Else
      lR = -1
   End If
   
   If (lR &lt;&gt; -1) Then
      'If bInsert Then
      '   SetKey lDst, vKey
      'Else
      '   SetKey lR, vKey
      'End If
      AddFromHandle = (lR &lt;&gt; -1)
   End If
   pEnsureKeys
   
End Function
Public Function AddFromPictureBox( _
        ByVal hdc As Long, _
        pic A