FadeIn med Timer, eller bedre?

prøv den her..


'--------------------------- Form1 ---------------------------
Option Explicit

Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Activate()
Dim lCount As Long
  Do While lCount < 255
    lCount = (lCount + 1)
    DoEvents
    SetLayeredWindowAttributes Me.hWnd, 0, lCount, LWA_ALPHA
  Loop
End Sub

Private Sub Form_Load()
Dim lStyle As Long
  lStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
  lStyle = lStyle Or WS_EX_LAYERED
  SetWindowLong Me.hWnd, GWL_EXSTYLE, lStyle
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim lCount As Long
  lCount = 255
  Do While lCount > 0
    lCount = (lCount - 1)
    DoEvents
    SetLayeredWindowAttributes Me.hWnd, 0, lCount, LWA_ALPHA
  Loop
End Sub
'--------------------------- Form1 ---------------------------

Dig Igen!?!?
Ja, den er rigtig flot! :D
Tusind tak.. Fandt forresten lige ud af at den jeg havde ikke kune ændres imens at formen var åben... :/

selv tak ;)

Kender du en eller anden stor database som du henter de eksempler ned fra hele tiden...? :-)

Ja op til flere Google :P

og et lille fint program med mange API´s : http://www.mentalis.org/agnet/apiguide.shtml

Ok.. Tak :D