 If pic Is Nothing Then
      Set memDC = Nothing
   Else
      Set memDC = New pcMemDC
      memDC.CreateFromPicture pic
   End If
   Draw
End Sub

Private Function TranslateColor(ByVal oClr As OLE_COLOR, _
                        Optional hPal As Long = 0) As Long
    ' Convert Automation color to Windows color
    If OleTranslateColor(oClr, hPal, TranslateColor) Then
        TranslateColor = CLR_INVALID
    End If
End Function


Private Sub Class_Initialize()
   m_eAppearance = EVPRG3DThin
   m_eBorderSt