  ' ok
    End If
End Sub

Private Sub UserControl_Paint()
Dim tR As RECT
Dim sC As String
Dim hBr As Long
Dim lHDC As Long

   tR.Right = 36
   tR.Bottom = 36
   lHDC = UserControl.hdc
   
   ' Clear
   hBr = CreateSolidBrush(GetSysColor(COLOR_BTNFACE))
   FillRect lHDC, tR, hBr
   DeleteObject hBr
   
   ' Draw piccy:
   BitBlt lHDC, 2, 2, 32, 32, picImage.hdc, 0, 0, vbSrcCopy
   
   ' Draw border:
   DrawEdge lHDC, tR, BDR_RAISEDOUTER Or BDR_RAISEDINNER, BF_RECT
   
   ' Draw number of images if any:
   