绘制ActiveX控件图标

怎样使得ActiveX控件在VB窗体中显示为一个形象的图标。

在控件类的OnDraw（）中编写绘制图象代码。

  HRESULT OnDraw(ATL_DRAWINFO& di)
  {
   HBITMAP bitmap = LoadBitmap( ATL::_AtlBaseModule.GetResourceInstance(), MAKEINTRESOURCE( IDB_ARMHAND ) );
   HDC hdc = di.hdcDraw;
   HDC hMemDC = ::CreateCompatibleDC( hdc );
   SelectObject(hMemDC,bitmap);
   ::BitBlt( hdc, 0, 0, 32, 32, hMemDC, 0, 0, SRCCOPY );
   ::DeleteObject( bitmap );
   ::DeleteDC( hMemDC );

   return S_OK;
 } 

IDB_ARMHAND 是BMP资源代号。