How would i make a form flash?

You're a member at Stealthbot.net's forums, why not check the code bank? I posted this a while ago, and UserLoser commented on different OS's and such.

http://www.stealthbot.net/forum/index.php?showtopic=3168

thanks.. i was lookin for the code bank yesterday.. but i couldnt find it -.-

[quote author=hismajesty[yL] link=topic=9074.msg83821#msg83821 date=1097380036]
You're a member at Stealthbot.net's forums, why not check the code bank? I posted this a while ago, and UserLoser commented on different OS's and such.

http://www.stealthbot.net/forum/index.php?showtopic=3168
[/quote]

Hmm, I updated my PSDK recently, and there's no longer a check for WINVER >= 0x500, so it is BOOL bInvert and not DWORD dwFlags

Oh I have a class for FlashWindow somewhere .... *finding*.... ok it's a function...

Drop this in a bas module somewhere or wrap up in a class.

[code]
Public Type FLASHWINFO
    cbSize As Long
    hwnd As Long
    dwFlags As Long
    uCount As Long
    dwTimeout As Long
End Type

Public Declare Function FlashWindowEx Lib "user32" (lpFWI As FLASHWINFO) As Long

'-------------------------------------------------------------------
'FlashWin procedure flashes the given window a number of times at some rate.
'-------------------------------------------------------------------
Public Function FlashWin(ByVal pWnd As Long, ByVal pCount As Long, ByVal pTimeout As Long) As Long
   
    Dim pFW As FLASHWINFO
   
    pFW.cbSize = Len(pFW)
    pFW.dwFlags = FLASHW_ALL
    pFW.dwTimeout = pTimeout
    pFW.hwnd = pWnd
    pFW.uCount = pCount
    FlashWin = FlashWindowEx(pFW)
   
End Function
[/code]

Flash?

Timer1_Timer ()

Dim a As Integer

If a = 0 Then
me.backcolor=vbwhite
a=1
else
me.backcolor=vbblack
a=0
end if

;)

If your going down that road.....
[code]
Private Sub Form_Load()
Me.BackColor = vbBlack
End Sub

Private Sub Timer1_Timer()

If Me.BackColor = vbBlack Then
Me.BackColor = vbWhite
Else
Me.BackColor = vbBlack
End If
End Sub
[/code]

Might be better to iif in the timer, not sure havent messed with iif to much.