Alpha = m_lAlpha - 4
   If (m_lAlpha &lt; -128) Then
      tmr.Enabled = False
   End If
   picNothing.Refresh
   '
End Sub

Private Function CreateFromHBitmap( _
      ByVal lIndex As Long, _
      ByVal hBmp As Long _
   )
Dim lHDC As Long
Dim lhWnd As Long
Dim lhDCDesktop As Long
Dim lhBmpOld As Long
Dim tBmp As BITMAP
   GetObjectAPI hBmp, Len(tBmp), tBmp
   If (Create(lIndex, tBmp.bmWidth, tBmp.bmHeight)) Then
      lhWnd = GetDesktopWindow()
      lhDCDesktop = GetDC(lhWnd)
      If (lhDCDesktop &lt;&