... {::nHeight-30, ::nWidth-25, ::nHeight - 10, ::nWidth-5}, .t. ) for me it's no good perhaps... data hBmpPop on METHOD Paint() CLASS TBtnBmp if ::oPopup != nil if ::hBmpPop != 0 DrawBitmap( ::hDC, ::hBmpPop, aRect[1]+5, aRect[4]-15 ) else ::PaintPopupSection()endifendif ...