mory ByVal VarPtrArray(bDibOut), 0&amp;, 4
   
   picNothing.Cls
   Dim lTextAlpha As Long
   Dim tR As RECT
   tR.left = 87
   tR.right = 87 + m_tBI(0).bmiHeader.biWidth
   tR.top = 1
   tR.bottom = 1 + m_tBI(0).bmiHeader.biHeight
   lTextAlpha = m_lAlpha + 128
   If (lTextAlpha &lt;= 255) Then
      SetBkMode picNothing.hDC, TRANSPARENT
      SetTextColor picNothing.hDC, BlendColor(vbButtonShadow, vb3DHighlight,
       lTextAlpha)
      DrawText picNothing.hDC, "vbAccelerator is a site providing advanced,