...
      AddFromFile = False
   End If
                  
   PropertyChanged "Images"
   PropertyChanged "Size"
   PropertyChanged "Keys"
   PropertyChanged "KeyCount"
   If Not (UserControl.Ambient.UserMode) Then
      UserControl_Paint
   End If
   
End Function
Public Function AddFromResourceID( _
      ByVal lID As Long, _
      ByVal hInst As Long, _
      ByVal iType As ImageTypes, _
      Optional ByVal vKey As Variant, _
      Optional ByVal bMapSysColors As Boolean = False, _
      Optional ByVal 