sC = ImageCount
   If (ImageCount &gt; 0) Then
      tR.left = 3
      tR.Right = 34
      tR.Bottom = 34
      tR.tOp = 22
      DrawText lHDC, sC, Len(sC), tR, DT_LEFT
   End If
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Dim b() As Byte
Dim lSize As Long
Dim lStart As Long
Dim lItemSize As Long
Dim hIcon As Long
Dim lHDC As Long
Dim lKeyCount As Long
Dim sKeys As String
Dim lVersion As Long
      

   ' Read the image size:
   IconSizeX = PropBag.ReadProperty("IconSizeX", 16)
