
         CreateFromHBitmap 0, picLogo.Picture.handle
         Create 1, m_tBI(0).bmiHeader.biWidth, m_tBI(0).bmiHeader.biHeight
         LoadPictureBlt 1, m_hDC(0)
         picLogo.Visible = False
         m_lAlpha = 255
         tmr_Timer
         tmr.Enabled = True
      Else
         picLogo.Visible = True
         tmr.Enabled = False
      End If
   End If
End Sub

Private Sub tmr_Timer()
Dim tSAIn As SAFEARRAY2D
Dim bDibIn() As Byte
Dim tSAOut As SAFEARRAY2D
Dim bDibOut() As Byte
Static lIndexFrom As 